Junio 1985-250 ptas. 


AÑO 1 - NUMERO 10. 


del 2-80 


i Proteccion 
i del Software 


Таепоѕ tu 


¡MENUDO CAMBIO!! 


y llévate un 


SPECTRUM PLUS 


Renuévate con 
INVESTRONICA. 


Apúntate a lo más 
nuevo. 


| pe muy fácil 1 


Ahora INVESTRONICA te da 

la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS 

Sólo tendrás que entregamos tu 
7Х SPECTRUM... 

..lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última 


С) 18000 pis. si es de 16 K 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso. Podrás disfrutar de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que yo tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA, al realizar el 
cambio, te da de nuevo 

6 meses de garanfa, 

una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 


No te lo pienses... cámbiate a lo 
último, tienes las de ganar. 


Manda tu 7Х Spectrum 

(sin cables, ni fuente de 
alimentación) a Іш Servicio 
Técnico Oficial 

(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (*) 


investronica 


al 
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JUEGOS, SKOOL D, 
ДЕС AZE y KNIGHT LORE. 
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ШЕМТО DE UN NUEVO 
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PROGRAMAS: Ediset y Laberinto. 


GUSANEZ. 


EL CORCHO. 


Los discos están de moda. Al análisis del Wafadrive del último nú- 
mero, le sigue ahora el Invesdisk. Coincidiendo con su comercializa- 
ción, llega el Discovery, que presenta la novedad del disco de tres pulga- 
das. En fin, formatos para todos los gustos Y precios prohibitivos igual- 


mente para todos. 
Nuestra preocupación educativa nos llevó este 
donde entrevistamos A Damià Garcia, gerente de una de las principales 
casas de sofiware educativo. Estamos abiertos a cualquier duda o suge- 
rencia que nos queráis plantear al respecto. Nuestro buzón está perma- 
nentemente abierto. 

Finalmente recomendar efusivamenie la lectura de la OL-sección. 
Enfrentamos al OL con el Macintosh a una batalla de Ajedrez. 


Hasta el próximo número. 


mes 4 Barcelona, 


Nacido en Portugal e 
importado de Inglaterra, 
el Invesdisk 200 se 
presenta ahora en España 
como una unidad de 
discos seria para 
Spectrum, distribuida y 
avalada por Investrónica. 
Sin embargo, las 
diferencias con los 
restantes sistemas de 
almacenamiento no 
parecen ser tan decisivas. 


La unidad de diskette de Timex, 
comercializada en España por Iu- 
vestrónica bajo el nombre de In- 
vesdisk, ha sido uno de los últimos 
periféricos en llegar al mercado, y 
es el primer disco que utiliza el 
formato de tres pulgadas (no con- 
fundir con los diskettes de 3”1/2 
de Sony), empleado por el Einstein 
y el Oric. 

Este tipo de floppys permite su 
utilización por las dos caras, con lo 
que cada disco admite hasta 320 
K. De las 160 K de cada cara, 16 K 
contienen el sistema operativo y 4 
el directorio, por lo que restan 140 
K libres para el usuario. La unidad 
incluye dos conexiones RS232C 
para comunicaciones o control de 
impresora, y un operativo con una 
gestión de archivos muy versátil y 
que utiliza sólo dos bytes (de una 
variable del sistema no usada) de la 
RAM del Spectrum. 

Una caja incluye el controlador, 
con un interface para Spectrum. El 
modelo «manda» hasta cuatro uni- 
dades de diskette, e incluye los dos 
ports RS232C en su parte trasera. 

En un módulo aparte se presenta 
la unidad de disketies, y una terce- 
ra caja incluye la fuente de alimen- 
tación, que resulta suficiente para 
dos unidades de disco y el contro- 


C Y FOR DONDE METES 
EL Disco ?, 


¡PISO TERCERO! 


lador. Si se quiere utilizar con tres 
о cuatro unidades, será necesaria 
una segunda fuente de alimenta- 
ción. 

El controlador trabaja en parale- 
lo al Spectrum, con un procesador 
Z80A, memoria y dispositivos de 
entrada/salida propios. El Spec- 
trum se limita a pasar los coman- 
dos al controlador, recibiendo el 
resultado. Viene dotado de un bo- 
tón de RESET, que permite inicia- 
lizar el sistema de disco sin afectar 
al Spectrum. Asimismo, el interfa- 
ce de conexión con el Spectrum 
viene dotado de otro botón de RE- 
SET, que pone el Spectrum «a 
cero». Este proceso vuelve a cargar 
el sistema operativo del disco, 
siendo equivalente a apagar y en- 
cenderel ordenador. 


Sistema de directorios: 
Una complicación innecesaria 


El sistema operativo, llamado 
TOS (Timex Operating System), 
atrae a primera vista: El sistema de 
ficheros tiene estructura de árbol, 
con los dos puertos RS232 y los di- 
rectorios de cada disco «crecien- 
do» de la raíz, de los que a su vez 
salen nuevas ramas (subdirecto- 
rios) y hojas (programas). El siste- 
ma conoce nuestra posición dentro 
del árbol en cada instante, y cual- 
quier nombre de fichero se buscará 
solo en la «rama» en que nos en- 
contremos. Si queremos especifi- 
car un fichero que se encuentra en 
otro subdirectorio, debemos indi- 
car el «camino» que lleva hacia él. 
Existen también comandos que 
permiten subir y bajar por el árbol 
de directorios. 

Un sistema operativo con subdi- 
rectorios es ideal para el manejo de 
disco duro donde el espacio dispo- 
nible hace que se multiplique el 
número de ficheros, resultando di- 
fícil identificar еп el catálogo los 
archivos que nos interesan. El uso 
de directorios independientes para 
distintos usuarios o aplicaciones 
permite una mayor claridad en la 
gestión del disco. No parece intere- 


sante su uso en un ordenador 
como el Spectrum, con diskettes 
de 140 K. En las pruebas realiza- 
das hemos podido constatar que 
con este sistema el usuario poco 
experimentado «pierde» los archi- 
vos, ya que no se «atina» con un 
programa determinado en el «bos- 
que» de directorios. 

Una característica más intere- 
sante es la posibilidad de usar ca- 
racteres como «comodín» en algu- 
nos de los comandos, al referirnos 
a un nombre de archivo. La pre- 
sencia de un interrogante «2» en el 
nombre hace que el programa in- 
cluya cualquier archivo que tenga 
en la posición del interrogante un 
caracter arbitrario: CA? selecciona 
cualquier fichero de tres caracteres 
que comience por CA. Si usamos 
el signo más «+», el programa lo 
reemplazará por cualquier cadena 
de caracteres: el nombre «+» es 


cualquier archivo que no tenga ex- 
tensión. «+.BAS» ѕеіессіопа todos 
los ficheros con extensión BAS. 
Muy útil para borrar todo aquello 
que hayamos caracterizado como 
fichero tipo BASIC en el directorio 
en vigor. 

Los comandos son palabras cla- 
ve del Spectrum seguidas por un 
asterisco y sus parámetros, y el sis- 
tema de paginación es muy pareci- 
do al del Interface 1, por lo que 


ambos sistemas son incompatibles. 
Existen instrucciones para la car- 
ра, almacenamiento y cambio de 
nombre de archivos, tanto progra- 
mas, como código máquina o da- 
tos. El comando MOVE * permite 
la copia de archivos o grupos de 
archivos. El comando ATTR per- 
mite la protección de archivos o. su 
ocultación en los directorios. DIM 
da la posibilidad de crear un archi- 
vo о directorio nuevo (vacíos). 


Canales y Archivos de datos. 
Acceso directo 

El sistema operativo TOS pro- 
porciona 16 canales de acceso a 
datos, diferentes de los canales del 
Spectrum. Los cuatro primeros ca- 
nales tienen un tratamiento distin- 
to, con un Buffer de 512 bytes para 
cada uno, y el sistema los distingue 
como canales «rápidos». Los res- 
tantes comparten otros 512 carac- 
teres y, si se abren varios canales 


La principal ventaja que ofrecen los sistemas de 
disco sobre otras alternativas de almacenamiento 
consiste en que el acceso aleatorio es real, y no se si- 
mula mediante software. Presentamos un ejemplo: 
cómo se puede usar el acceso aleatorio para crear un 
pequeño archivo de direcciones y consultarlo. Para 
ello, lo primero será crear el archivo, si no existía: 


DIM * “direc.dat” 


creará un fichero, dando un error si ya existía. 
Vayamos al programa propiamente dicho: 


100 OPEN *1; “direc.dat”; г;100 


abre el archivo al canal 1, con acceso aleatorio. 
Cada registro tiene 100 caracteres. 


110 INPUT “1-Consultar, 2-Añadir, 3-Fin”; h$ 


DE ACCESO ALEATORIO 


120 IF h$=“2” THEN GOTO 500 
130 IF h$="3” THEN GOTO 600 
140 IF h$ < > “1” THEN GOTO 110 


Hasta quí hemos comprobado las opciones y he- 
mos enviado el programa al punto adecuado. Vea- 
mos a continuación cómo se consulta el archiv: 


150 INPUT “Registro?”;n 
160 IF п> 65535 OR n<1 THEN GOTO 150 


ya que el número máximo de registros es de 65535, 
comenzando a numerar por uno. 
170 INPUT* 1;a$;AT n 


Esta instrucción lee el registro número n del ar- 
chivo, y lo introduce en la variable a$. 


180 CLS 
190 PRINT AT 4,3;“Nombre: ”;a$ (TO 30) 


con una gran flexibilidad. Los co- 
nectores utilizados son tipo /оу- 
stick, no estándar, aunque no apa- 
recen grandes problemas de ca- 
bleado. 

El manual es, junto con el pre- 
cio, uno de los puntos más débiles 
de la unidad de Investrónica. Un 
manual en inglés, donde se pueden 
encontrar todas las características 
del programa, aunque haya que 
perder un tiempo excesivo en la 
búsqueda. Un apéndice explica la 
implementación de rutinas en có- 
digo máquina que saquen partido 
del disco, pero no existe ninguna 
referencia al uso de vectores para 
la ampliación del BASIC, presen- 
tes en el Wafadrive y el Microdri- 
ve. 

Las unidades de 640 K, anuncia- 
das por Timex, parecen haber de- 
saparecido en el negro túnel del 
marketing. Una lástima, ya que 


«lentos», los tiempos de acceso se- 
rán más altos. 

Cada uno de estos nuevos cana- 
les se puede abrir a un archivo, de 
tipo secuencial o de acceso directo, 
o bien a uno de los ports RS232. 
Para los archivos de acceso directo 
deberemos especificar la longitud 
de registro (máximo 256 caracte- 
res). El almacenamiento mediante 
archivos de acceso aleatorio abre 
la puerta a aplicaciones rápidas 


con manejo de gran cantidad de 
datos, ya que los tiempos de acceso 
son realmente buenos. 


Comunicaciones serie 


Dos conexiones RS232 permi- 
ten la conexión con otros ordena- 
dores, impresoras serie, o cual- 
quier otro dispositivo de entrada/ 
salida RS232. El sistema operati- 
vo permite la configuración de los 
dos puertos independientemente y 


darían mucho más juego a esta 
unidad. Para finalizar, conviene 
no olvidar otro problema que sur- 
ge con las unidades de disco para 
Spectrum (no sólo la de Investró- 
nica): la escasez de sofiware co- 
mercial desarrollado para ellas. En 
general, no queda más remedio 
que escribir nuestros propios pro- 
gramas o adaptar alguno realizado 
para microdrive. Y ese es otro as- 
pecto que pesa en la balanza. 


200 PRINT АТ 8,0;“Dirección: ”;a$(31 TO 60) 


210 PRINT АТ 12,5;“Тіпо: ”;a$(61 TO 75) 
220 PRINT АТ 16,4;“Notas: ”; a$(76 ТО) 
230 INPUT “Enter para seguir”; LINE h$ 


Estas líneas leen un registro. Por convenio, he- 
mos decidido que los primeros 30 caracteres almace- 
narán el nombre, después otros 30 caracteres alma- 
cenarán la dirección, quince caracteres los dejamos 
para el número de teléfono y los veinticinco últimos 
para notas de interés. 


240 GOTO 110 


La sección siguiente del programa se encarga de 
la introducción de las fichas. Primero se nos pregun- 
ta en qué registro queremos introducir la ficha. Hay 
que tener cuidado, ya que el programa no mirará si 
ese registro contenía algún dato de valor. A conti- 
nuación el programa dimensiona cuatro cadenas de 


caracteres, que contendrán los datos de nuestra fi- 
cha. Para finalizar, se introducen los datos desde el 
teclado mediante instrucciones INPUT y se impri- 
me el registro resultante al archivo. 


500 INPUT “Registro Numero?”;n 

510 IF n>65535 OR n<1 THEN GOTO 500 

520 CLS 

530 DIM n$(30): DIM b$(30): DIM p$(15): DIM 
c$(25) 

540 INPUT “Nombre? ”;n$ 

550 INPUT “Dirección? ”;b$ 

560 INPUT “Tfno? ”;p$ 

570 INPUT “Notas? ”;c$ 

580 PRINT * 1;n$+b$+p$+c$;AT п 
590 GOTO 110 

600 CLOSE *1: PRINT “Terminado” 


La línea 600 cierra el archivo, permitiéndonos así 
conservar nuestras fichas sin problemas. 
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los comandos del sistema 
tor 


. Donde se especifica camino se 


irec 


inuación 
é d 


tros entre corchetes son optativos). 
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di 


necesario іп 


entiende una referencia cualquiera a un archivo (puede ser 
paráme! 
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¡¡YA ESTA AQUI EL LOGO 
SINCLAIR EN CASTELLANO 
PARA TU SPECTRUM 48 K 
Y PLUS!! 


RT. - АМ... 
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Logo es un buen lenguaje para los niños porque ев un buen 

lenguaje para todo el mundo: (niños desde los 4 alos 90 años) 

— un lenguaje sin límites: accesible al joven principiante, y al j 
mismo tiempo potentecomo para estimular a un programador GIRA DERE CHA, 
experimentado. 

- unlenguaje simple de abordar: tecomunicas con el ordenador 
en castellano... (por fin un lenguaje de programación en 
castellano) 


Logo es un buen lenguaje gráfico porque es más que un 

lenguaje gráfico: 

- unlenguaje queofrece la posibilidad de manipular listas, pala- 
bras, operaciones aritméticas, contribuye a un grafismo 
elaborado. 

= unlenguaje que permite iniciarse en la programación a través del grafismo en el que los resultados sonconcre- 
tos y visibles. 


Logo es un buen lenguaje porque es un lenguaje potente: 

- un lenguaje interactivo: las instrucciones son ejecutadas inmediatamente y los mensajes de ayuda son 
claros y precisos. $ 

- unlenguaje que permite describir las acciones a ejecutar de forma estructurada, creando nuevos procedimien- 
tos a partir de las instrucciones iniciales (primitivas). 


Usar Logo es aprender: 

- numerosas experiencias pedagógicas lo han demostrado: Logo es una herramienta de expresión que incita a 
reflexionar sobre la propia metodología. 

= unlenguaje quepermite que cada cual domine elordenadoren función de sus necesidades: programas de apli- 
cación, educativos, de juegos... 


Y ADEMAS... 
LE DAMOS AYUDA AL LOGOADICTO CON: EL LOGOSPECTRUM CLUB, que te permitirá realizar todo 
tipo de consultas. Con sólo enviar el cupón que acompaña al programa, recibirás a vuelta 
de correo tu clave de usuario. Este servicio es gratuito. 


EDICION LIMITADA DE LANZAMIENTO 


Hemos preparado unaedición limitada yala mitad 
de precio que este programa tiene en Inglaterra. 


¡HAZTE AMIGO DEL LOGO!!” 
por sólo 3.990 pts. 


FABRICACION, ASISTENCIA TECNICA Y CONSULTAS COMERCIALIZACION 

DEL LOGO SPECTRUM CLUB, DIRIGIRSE A: VENTAMATIC 

IOSHUA Córcega, 89, ent. - Tel. 230 97 90 
Provenza, 281, 2.", 5 - Tel. 215 83 37 08029 BARCELONA 
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KNIGHT LORE 


Hay casas de sofiware que van ha- 
ciendo historia por la calidad de sus 
juegos y la consecuente expectación 
que genera la aparición de los nuevos 
productos. Tal es el caso de la casa in- 
glesa Ultimate, donde el «premio» por 
llegar al final de sus juegos es precisa- 
mente el poder conocer el nombre del 
próximo juego que lanzarán al merca- 
do. 

Knight Lore, como todo lo de Ulti- 
mate. sigue la linea del laberinto. de la 
sucesión de cuidadas pantallas en bús- 
queda de los distintos materiales que 
ayudan a llegar al final. En este caso 
Sabreman —protagonista usual de los 
juegos de Ultimate— se encuentra con 
el problema de convertirse en hombre- 
lobo en los días de luna llena. Para re- 
solver su problema ha de recoger di- 
versos ingredientes —esparcidos por 
un tétrico castillo— y llegar con ellos a 
donde se encuentra un mago que cono- 
ce la combinación que le liberará de su 
castigo. 

Aunque pueda parecer sencillo, el 
problema es en realidad una lucha 
contra reloj en dos sentidos: sólo se 
dispone de 40 días y 40 noches para 
poder «deshacerse» del problema; y 
cada vez que tiene lugar la transforma- 
ción (de una vistosidad realmente іп- 
mejorable), nuestro héroe queda inha- 
bilitado para defenderse de cualquier 
ataque, pudiendo perder alguna de las 
cinco vidas que dispone al iniciar el 
juego. 

Los objetos transportados aparecen 


para saltar sobre 


ANY 


SU 


М 


Es medianoche 


transformación ha 
tenido lugar: el 
lobo busca la 


hombre 


solución a su 


tormentos 


en la parte inferior de la pantalla ри- 
diéndose coger y soltar cualquiera a 
voluntad y llevando un máximo de 


tres, lo que nos recuerda al ya clásico 
Saimazon. Asimismo, la parte inferior 
de la pantalla informa también del nú- 
mero de días transcurridos y la trayec- 
toria del sol o la luna, imprescindible 
para estar preparado ante la «transfor- 
mación». 

La clave del juego consiste en cono- 
cer la secuencia en que se han de arro- 
jar los catorce objetos a la pócima del 
mago, a fin de librarse del hechizo. 
Aunque pueda parecer aleatorio, afor- 
tunadamente no es este el caso y con la 
adicción que genera el juego se puede 
llegar a conocer. 


SKOOL DAZE 


«¡Atrévete a todo!», «¡Juega con tus 
profesoresl», son, entre otros, los titu- 
lares agresivos con que la publicidad 
nos enseña lo más novedoso en juegos 
para Spectrum. 

Y ciertamente se trata de un juego 
donde su mayor atractivo reside en su 
originalidad. A diferencia de Knight 
Lore y la serie de juegos basados en 
múltiples pantallas, aquí se limita todo 
a tres pantallas. Lo importante no es 
andar por recónditos caminos, sino іг 
al colegio con el aliciente de hacer todo 
lo que se le ocurra a su imaginación: 
pegarse con los compañeros o los pro- 
fesores, abandonar las clases, meterse 
en el despacho del director у, por su- 
puesto, abrir la caja fuerte donde están 
las notas... ¡Ya se puede imaginar con 


qué motivo! Este es precisamente el 
objetivo del juego, pero no es tan fácil 
como traspasar la puerta. Antes, hay 
que golpear con el tirachinas a los es- 
cudos del colegio, lo cual sólo es posi- 
ble de «rebote» una vez golpeado a los 
profesores. 

Toda la aventura transcurre en lo 
que pudiéramos calificar como «un día 
normal de escuela», donde Eric, que es 
el protagonista del juego, ha de asistir a 
varias clases. 

La pantalla del televisor se convierte 
en un colegio lleno de bullicio y movi- 
miento por doquier (cuando se ve por 
primera vez siempre surge la pregunta: 
¿cómo han logrado tener todo esto en 
movimiento?) 

Al margen del movimiento, existe 
una característica que le hace especial- 


Eric 


que de 


mente novedoso, cual es la conversa- 
ción profesor-alumnos al estilo de los 
comics, incluido el chivato que no 
duda en advertir al profesor de la au- 
sencia de Eric. 

La limitación de tiempo viene im- 
puesta por los castigos de los «profes» 
empeñados en hacer copiar numerosas 
líneas sobre lo que no se debe hacer. 
Cuando el número de líneas rebasa la 
cifra de 100, el director decide «dar va- 
caciones» a Eric y no le permite volver 
al colegio hasta que las haya copiado 
todas. Aunque también puede ser ex- 
pulsado prematuramente por coger las 
paperas. 

Un juego original y recomendable «pa- 
ra todos los públicos» y poderse final- 
mente ensañar con los profesores y con 
los diabólicos compañeros de escuela. 


brutina en código respectivos PROG, VARS y ELI- temos con sus variables, poniendo 
os permitirá acce- М 
amas BASIC 


te, siempre 
e cada uno de ellos no su- 


se crea, si AUTO-LIST) y tras poner a cero «ERROR EN DATA»: en cuyo 
masi el оса 8 OP caso deberemos revisar 5 


а рагі 
), y sus Боггагетоѕ el programa еп que <s- Antes de utilizar la subrutina 


PROGRA 


NE se almacenan como PROG2, a sus mínimos valores VARS y 

VARS2 y ELIN2. Cada vez que ELINE. 

cambiemos de programa se inter- Quien no tenga ensamblador de- 

сазара е ате. аз үа 5 Бега teclear el programa cargador, 
$ ат ч ue avisará, si es inc 1 

hace un listado automático (CALL 952 851 correcta Ца 


suma de control, соп el mensaje 


чш А «е n ШР а En 
- MAING-G) con mensaje z Sn а 
te Entrando рог 65008 (BORRAR) 501810 е nuevo, 


MAS BASIC 


VULTANEOS 


conviene grabar el programa en 
cinta o microdrive. para salvarlo 
en forma de bytes haremos: SAVE 
«nombre»CODE 65000. 80 y para 
cargarlo posteriormente: CLEAR 
64999: LOAD «nombre»CODE. 
Seguidamente podremos borrar 
el programa cargador con RAN- 
DOMIZE USR 65008 o con NEW 
e introducir el primer programa 
BASIC de la forma habitual. 
Cuando hayamos acabado debere- 


mos hacer: RANDOMIZE USR 
65000 y estaremos en condiciones 
de introducir el segundo progra- 
ma, repitiéndolo volveremos al 
primero, y así sucesivamente. Si 
queremos borrar uno de los dos 
programas manteniendo el otro, 
podemos usar RANDOMIZE 
USR 65008. Si hacemos NEW se 
borrarán los dos programas, pero 
no así el código máquina, que po- 
drá ser utilizado normalmente. 


Cada programa conserva sus 
propias variables, pero no la pila 
de GO SUB, que se borra en cada 
cambio. 

Quien tenga el interface 1 debe 
tener cuidado de no hacer opera- 
ciones con el microdrive desde el 
segundo programa, pues desplaza- 
ría al primero y al volver a éste, 
podria “colgar” el sistema. 


Luis Gala 


PROGRAMA 1 1 PROGRAMA? 
33 REN CARGADOR 28 =мта ЗЕР, ERRETO 
9% НЕМ DOS PROG. SIMULTANEOS 32 SALIDA CALL 41798 
50 CLEAR 54999 50 ЈР” 81313 
62 ГЕТ Сий 62 BORRAR CALL CAMBIO 
70 FOR Май TO 79 70 CALL BORR 
82 READ А 62 JR SALIDA 
30 LET СаС+а 92 EFRIA LO HL BAFCS 
198 БОКЕ 65000+N, A 192 CO (PROG2).HL 
119 NEXT М 110 BORR LD (VARSZ) ¿HL 
120 IF с‹›9447 THEN PRINT FLASH 120 CO (HLI B880 
1," ERROR EN DATA ": STOP 130 іне HL 
159 PRINT "CARGA оқ!" RANDOMIZ 140 LO (ELIN) HL 
Е USR ssuee PARA CAMBIO DE PROGA 189 CAMBIO LO ВС, (VARŚ2) 
AMA. 65023 PARA BORRAR," 160 ТМС 8 
140 DATA 2@5,9,454,2@5,149,23 179 DEC B 
150 DATA 175,195,19,19,205,9 180 JR Z EFRIA 
160 DATA 254,205,0, 284,24,241 150 LO HL, (UARS) 
170 DATA 32,200,178,24,56,254 200 CO (ува) HL 
180 DATA 34,176,92,54 128.95 210 CO (0885) ,8С 
192 DATA 34,58,454,297,75,178 220 CO BC, (ELÍN2) 
200 DATA 92,4,% 49:232,48.45 832 LO HL; (ЕСІМЕ) 
210 DATA 92,34,176,98,237,67 240 ГО (ELINS),HL 
220 DATA 78,92,237,78,55,284 250 CD (ЕСІМЕ) ,ВС 
238 DATA 42,89,92,34,68,254 260 LO ВС, (PROGR) 
240 DATA 237,67,8%,92,237,75 270 CÒ НО, (PROG) 
250 DATA 556,254,42,09,92,34,56 280 CO (BROG2),HL 
260 DATA 254,237,67,83,92,201 290 р (PROG), 50 
Зда RET 
310 PROG2 DEFS 2 
320 Есімі DEFS 2 
330 VARS2 EQU EscBO 
340 PROG EQU «5653 
380 ЕСІМЕ EQU 55069 
362 VARS EQU #SC4B 
1 


PROTECCION | 


medida que aumenta el nú- 
mero de usuarios del ya 
enomemente popular Spec- 
trum, la piratería se con- 
vierte cada vez más en un 
problema acuciante para las jóve- 
nes casas de sofware. Los usuarios 
alcanzan un grado de conocimien- 
to de sus máquinas tal que no su- 
pone problema alguno para ellos 
más protegido de los 
. Los programadores 
males se ven obligados a 


A 


IR) 


ANO? 


700 
Ж) 


(Ж, 
SN 
) 


| 


para desarrollar sistemas que impi- 
dan la copia de su preciado sofiwa- 
re. Y aunque, como todos sabe- 
mos, no exista programa soportado 
en cinta de cassete que no sea vul- 
nerable a la copia, las técnicas em- 
pleadas comienzan a extenderse 


| 1 
| ШІ ШІ)! 


incluso al campo de la protección 
contra algunos de estos sistemas. 
Al menos se han desarrollado al- 
gunas ideas que impiden (nunca 
con una fiabilidad absoluta) la co- 
pia de cintas con dos aparatos cuyo 
nivel de grabación esté regulado 
con ALC (Automatic Level Con- 
trol o control automático de nivel), 
sistema usado por la práctica tota- 
lidad de los cassetes portátiles. Y 
es ésta una de las formas mediante 
las cuales los usuarios realizan la 
mayor parte de las copias piratas. 


\ 


Y 
ORO 


Contra los que se dedican a este su- 
cio negocio de una forma profesio- 
nal, nada se puede hacer. La única 
forma de reducir esta piratería es 
simplemente abandonando la сіп- 
ta como soporte de sofiware. 

De las últimas técnicas desarro- 


lladas por las casas de sofiware es 
de lo que se уг a hablar aquí, y 
para ello nos basaremos en uno de 
los juegos más populares de los 
editados recientemente para el 
Spectrum: el DECATHLON, de la 
compañía inglesa OCEAN. Pre- 
viamente daremos un breve repaso 
a los sistemas de protección más 
usuales, de los cuales se ha escrito 
bastante (ver TODOSPECTRUM 
número 1). 


Entre los sistemas de protección 
empleados podemos separar gran- 
des grupos según la finalidad de la 
técnica usada. Por una parte se 
suelen proteger los programas con- 
tra la posibilidad de transformar o 
usar rutinas contenidas en el soft- 
ware. Por otra, la protección es 
contra la copia mediante los cono- 
cidos programas copiadores, de los 
que existe ya una gran variedad en 
el mercado. El primer conjunto 
realiza tambiér en parte la función 
de evitar la copia directa por análi- 
sis de las instrucciones o rutinas de 
carga que posee el programa. Esto 
se consigue en primer lugar ha- 
ciendo imparable el programa. 
Todos sabemos lo que suele ocu- 
rrir si intentamos hacer ип 
«Break» durante la carga o ejecu- 
ción de la mayoría de los progra- 
mas comerciales. Para ello, se ha 
de alterar o anular la función de la 
tecla «Break». Son varios los méto- 
dos empleados, entre los que cabe 
destacar la alteración de las varia- 
bles del sistema «ERROR SP» o 
«DEF SZ». La primera es un pun- 
tero de dirección que indica la po- 
sición de memoria donde se halla 
la dirección de la rutina que ha de 
emplear el sistema operativo en 
caso de que se produzca un error. 
Si cambiamos este valor podemos 
hacer que el ordenador se bloquee 
al producirse una interrupción, ya 
que intentará ejecutar una rutina 
que no es tal. La segunda variable 


DE SOF 


indica al sistema la cantidad de lí- 
neas que puede usar en la parte 
baja de la pantalla para mensajes y 
entrada de datos. Si se hace cero, 
cuando el ordenador intente dar el 
mensaje de «BREAK IN LINE xx» 
no podrá hacerlo y se bloqueará. 
Sin embargo, no es un secreto que 
es posible parar la autoejecución 
de un programa cargándolo con la 
función MERGE en lugar de con 
LOAD. MERGE fusiona dos pro- 
gramas en BASIC alterando si es 
necesario la numeración de las lí- 
neas, motivo por el cual, anula la 
autoejecución. El remedio contra 
este truco consiste en alterar los 
números de línea sustituyéndolos 
por otros «imposibles» para el or- 
denador, como el cero, etc. De esta 
forma se consigue además que la 
línea no se pueda editar por me- 
dios normales. Cuando el ordena- 
dor intente renumerar el progra- 
ma, se encontrará con números in- 
comprensibles y se bloqueará. 
Todo esto, por desgracia, tiene un 
antídoto bastante sencillo para el 
programador de código máquina. 
La autoejecución de un programa 
viene definida por dos bytes de la 
cabecera que indican la línea de 
comienzo del programa. Si este 
número es mayor de 32768 no 
ocurre auteejecución. Basta, por 
tanto, con crear una cabecera igual 
a la del programa pero sin autoeje- 
cución, llamando directamente a 
las rutinas de carga y grabación de 
bloques de la ROM. Dado que es 
posible, como se ve, parar la ejecu- 
ción del programa a pesar de todo, 
es necesario proteger el propio 
programa contra su alteración о 
visualización en pantalla. Una for- 
ma bastante sencilla es usando los 
códigos de color dentro de las li- 
neas de programa, tal y como se 
explica en el manual del Spec- 
trum. Se pueden poner tinta y pa- 
pel del mismo color, de forma que 
no aparezca nada al listar el pro- 


Las casas de sofiware van 
por delante de las técnicas 
utilizadas en los programas 
copiadores. Cuando apareció 
el famoso «the key», muchos 
programas estaban ya 
grabados con bloques sin 
cabecera. 


grama. Para evitar la edición y su- 
presión de estos códigos en la línea 
se emplea de nuevo el truco de la 
línea cero. «Pokeando» ceros en 
los bytes correspondientes al nú- 
mero de línea en cada sentencia, se 
conseguirá hacer las líneas inedita- 
bles. Basta con deshacer el entuer- 
to para obtener un programa nor- 
mal. En última instancia se intenta 
proteger la parte en código máqui- 
na que llevan la mayoría de los 
programas. Para ello los bloques 
correspondientes se suelen cargar 
mediante rutinas en máquina ex- 
trañas para los profanos, y a las 
cuales se accede no con un vulgar 
RAND USR, sino mediante alte- 
ración de las variables del sistema 
(ERROR SP). De esta forma es di- 
fícil conocer dónde comienza la 
dirección de ejecución del código, 
y por tanto se evita su desensam- 
blado. 

Respecto a la protección contra 
los conocidos copiadores, hay que 
reconocer que muchas casas de 
sofiware han ido siempre, por de- 
lante de éstos en técnicas de pro- 
tección. Cuando el único copiador 
conocido en el mercado era el fa- 
moso THE KEY, muchos progra- 
mas estaban ya grabados con blo- 
ques sin cabecera, imposibles de 
leer por el copiador. Aparecierun 
programas que copiaban estos blo- 
ques, pero para entonces el sofiwa- 
re venía protegido con falsas cabe- 
ceras que engañaban astutamente 
al copiador. Recientemente han 
aparecido en el mercado varios 
programas que parece ser han con- 
seguido desterrar del «reino» del 
Spectrum a los más potentes co- 
piadores. Son los llamados progra- 
mas «turbo», grabados a distinta 
velocidad del estándar prefijado 
por las rutinas de la ROM. El cam- 
bio de velocidad se consigue alte- 
rando ciertas constantes conteni- 
das en las rutinas de carga y graba- 
ción. Aparentemente se puede ha- 


cer un copiador de velocidad va- 
riable de esta forma, pero es prácti- 
camente imposible acertar la velo- 
cidad a la que está grabado un pro- 
grama. Técnicamente es posible 
escribir una rutina que la mida, 
pero es bastante complejo. Proba- 
blemente ya haya gente trabajando 
en ello. 

De las últimas técnicas de pro- 
tección es un claro y brillante ex- 
ronente el conocido DECATH- 
LON de OCEAN. Los programa- 
dores de esta casa han conseguido 
un sistema realmente efectivo, 
aunque como veremos no es total- 
mente invulnerable. Los sistemas 
empleados son novedosos tanto en 


REM que contenga rutinas en má- 
quina. Evidentemente, éstas han 
de existir para cargar bloques a dis- 
tinta velocidad. Pero no están me- 
tidas como es corriente en una li- 
nea de programa, sino que se en- 
cuentran ubicadas en la zona de 
variables, único lugar remanente 
protegido de las inclemencias del 
sistema operativo. El programa en 
BASIC tiene todas sus líneas nu- 
meradas con cero y con códigos de 
color que las hacen invisibles en 
los listados. El MERGE, por tanto, 
es inútil, siendo necesario alterar 
la cabecera para cargar sin autoeje- 
cución. Esto ha de hacerse llaman- 
do a la rutina de carga de bloques 


el campo de la protección del BA- 
SIC y del código máquina como en 
el de la copia con programas co- 
piadores y directamente de cinta a 
cinta. 

Analizando en profundidad este 
programa, nos encontramos con 
que consta únicamente de 3 blo- 
ques. El primero es un bloque BA- 
SIC, seguido inmediatamente de 
dos bloques sin cabecera grabados 
ya а distinta velocidad. Este hecho 
no llamaría la atención si no fuese 
porque al parar el programa y ob- 
servar el BASIC nos encontramos 
con que no existe ninguna línea 


para cargar la cabecera, alterando 
los dos bytes de ejecución, y gra- 
bándola de nuevo con otra llama- 
da a la ROM. Para conseguir vi- 
sualizar el programa es necesario 
anular los códigos de color me- 
diante un monitor en máquina 
ubicado en una zona alta de la me- 
moria, ya que es difícil hacerlo 
desde BASIC sin trastocar la zona 
de variables, y por tanto el código 
que contiene. Los números de lí- 
nea se pueden cambiar de igual 
modo. Con el programa al descu- 
bierto, nos encontramos con una 
maraña de PEEK y POKE que ha- 


cen ciertamente difícil la com- 
prensión de su funcionamiento. En 
la primera línea, se altera la varia- 
ble del sistema DEF SZ, que hace 
el programa imparable. Es difícil 
cambiar el programa sin anular su 
correcto funcionamiento, pues si 
se reduce o aumenta su tamaño se 
altera la direccion de las rutinas en 
máquina. Si se sigue paso a paso el 
proceso de PEEK y POKE de cada 
sentencia, probablemente se llegue 
a la conclusión de que lo único que 
hace el programa es alterar la in- 
formación de canales, cuando en 
realidad está cambiando la varia- 
ble ERROR SP. Esto demuestra la 
astucia del programador. Con la 
variable de puntero de error altera- 
da, el sistema salta, una vez termi- 
nado el BASIC, a una rutina de la 
zona de variables con la sencilla 
función de desplazar un bloque de 
memoria, pero de una forma un 
tanto especial. Y es aqui donde 
empieza lo realmente curioso de 
este programa. Probablemente 
muchos os quedaréis bastante 
asombrados si se os dice que exis- 
ten instrucciones del microproce- 
sador Z-80 que no forman parte 
del juego estándar y que no figuran 
en ningún texto sobre él. Pues 
bien, existen, y precisamente este 
programa hace uso de ellas para 
conseguir un código impenetrable. 
Estas instrucciones se refieren a 
manipulaciones con el registro ín- 
dice ТҮ. Como muchos sabéis, no 
es posible hacer cargas u operacio- 
nes directa e independientemente 
sobre los registros I o Y (con I no 
me refiero al registro vector de in- 
terrupción, sino al byte alto del 
ГҮ). Sin embargo, si hacemos pre- 
ceder los códigos de operaciones 
de los registros H о L con el byte 
FD hexadecimal, conseguimos 
efectuar la misma instrucción so- 
bre el registro I o el Y respectiva- 
mente. La rutina en cuestión des- 
plaza el programa cargador en alta 
velocidad desde la zona de varia- 
bles a la parte superior de la me- 
moria, saltando posteriormente a 
ejecutar éste. Todo ello está en- 
mascarado con estas instrucciones 
no estandar, de forma que cual- 


quier desensamblador dará un có- 
digo erróneo o sin sentido. Por si 
fuera poco, la rutina hace uso de 
bytes almacenados еп el stack an- 
tes de su ejecución para calcular la 
dirección de origen del desplaza- 
miento. Así mismo, y utilizando el 
registro ТҮ como ya se ha indica- 
do, introduce en el stack la direc- 
ción de comienzo de la sutina de 
carga, para saltar a ella posterior- 
mente con un RET, haciendo in- 
descifrable el destino del salto. 
Todo esto sería inútil si no fuese 
porque el programa cargador de 
alta velocidad, que se halla en un 
principio en la zona de variables, 
está convenientemente codificado 
para evitar su desensamblado. Uti- 
lizando una técnica similar a la de 
conversión de código binario en 
código Gray, la rutina de carga está 
transformada mediante un OR ló- 
gico exclusivo (XOR) entre cada 
dos bytes adyacentes. De igual for- 
ma es decodificada por el progra- 
ma que la desplaza. 

El programa cargador es prácti- 
camente una copia de la rutina 
existente en la ROM con las cons- 
tantes de tiempo modificadas. Pero 
también posee algunas particulari- 
dades que le hacen realmente inge- 
nioso. En primer lugar carga un 
bloque de unos 20 bytes que no 
forma parte realmente del progra- 
ma. Posteriormente carga el blo- 
que principal, que comienza en la 
dirección 16384, y que por tanto 
incluye la pantalla. Entre ellos 
existe una pequeña pausa similar a 
la de cualquier programa con ca- 
becera, y que no parece significati- 
va en absoluto. Pero en ella reside 
el secreto de la protección contra 
la copia de cinta a cinta, por cierto 
bastante efectiva, como muchos 
habrán podido comprobar amar- 
gamente. Al terminar de cargar el 
primer bloque, la rutina entra en 
un bucle de lectura de la puerta del 
cassete con una duración determi- 
nada. Para explicar la finalidad de 
esta lectura, hay que entender el 
funcionamiento de un cassete con 
control automático de nivel. Este 
sistema consiste en un amplifica- 
dor de ganancia variable controla- 


El Decathlon incorpora las 
mejores técnicas de 
protección. Un bloque de 
BASIC seguido de dos 
bloques sin cabecera. 


da por tensión con un sistema de 
ajuste. Si la señal en la entrada es 
insuficiente para ser grabada, el 
sistema eleva la ganancia del am- 
plificador hasta que la señal tenga 
nivel suficiente para la cabeza de 
grabación. Por el contrario, si la 
señal es muy fuerte, el amplifica- 
dor reduce su ganancia hasta el ni- 
vel adecuado. En ausencia de se- 
ñal, el amplificador eleva su ga- 
nancia hasta el máximo haciéndo- 
se muy sensible. Todos los ruidos 
que se generan en los circuitos y en 
las líneas de transmisión son am- 
plificados y grabados con un nivel 
considerable. Este es el ruido típi- 
co que aparece en una grabación 
con estos aparatos cuando no in- 
troducimos ninguna señal, Si hace- 
mos una copia del programa en 
cuestión con estos cassetes, al Пе- 
gara la pausa entre los dos bloques 
el amplificador de grabación ele- 
vará su ganancia y grabará los rui- 
dos existentes. El bucle de lectura 
de la puerta del cassete comprueba 
que no haya ningún ruido extraño. 
Si lo encuentra, dado que el origi- 
nal debe estar exento de ellos, fija 
un byte de control que hará que el 
programa se autodestruya al final 
de la carga, para mayor despiste 
del «personal». 

Este programa, como hemos 
comprobado, se merece realmente 
un elogio por la creatividad y el in- 
genio de sus sistemas de protec- 
ción. Sin embargo, también hemos 
visto su vulnerabilidad ante un 
usuario conocedor de la máquina. 
Verdaderamente el software sopor- 
tado en cassete está condenado de- 
finitivamente a la piratería, y qui- 
zá la única salida sea el soporte 
«duro» (ROM) o los sistemas de 
protección mediante hardware, 
dado que el microdrive también es 
vulnerable con un conocimiento 
profundo de &и sistema operativo. 
En protección por hardware se co- 
mienzan a realizar algunos tímidos 
intentos, pero realmente no es 
aplicable en programas como jue- 
gos, puesto que verían incrementa- 
do su precio enormemente. 


Javier Cancela 


todos losi 


Conozca 
Extremadura: 


Con motivo de la VII Edición de la Semana de Extramadura en la 
escuela, se propuso la creación de un programa de ordenador que 
contribuyera a dar a conocer algunos aspectos de nuestra geografia. 
Para ello, se eligió un ordenador de amplia difusión Spectrum 48K. 
Después, se revisó el software ШЇЇ para la elaboración del programa 
Country 48K, Melbourne Draw y Video Display. El primero, sirvió de 
base para la realización del programa y los dos restantes, se utilizaron 
para los gráficos. 

Finalmente, se iniciaron los trabajos de recopilación de datos, 
contando con la Delegación Provincial del Instituto Nacional de 
Estadística, tanto de Cáceres como de Badajoz. 

El resultado final fue este programa. 


El programa contiene informa- 
ción sobre todos los municipios 
extremeños (situación, número de 
habitantes, distancia a la capital, 
etc.). Tiene una pantalla principal 
a todo color y con efectos musica- 
les, que incita a su utilización; y 
puede ser utilizado para obtener 
información o para efectuar un 
examen al usuario. 

La información (que se presenta 
gráficamente), puede ser suminis- 
trada de manera automática (apa- 
recen todos los pueblos sucesiva- 
mente por orden alfabético) o bien 
de forma selectiva (para ello el 
usuario elige el pueblo del que so- 


licita información); para evitar 
errores de transcripción, es el pro- 
pio ordenador el que suministra la 
lista de los 380 municipios extre- 
meños y el usuario sólo ha de ele- 
gir el número correspondiente al 
pueblo seleccionado. Como esta 
lista no cabe en la pantalla (sólo se 
visualizan 10 nombres, simultá- 
neamente con el menú), existen 
opciones que permiten subir o ba- 
jar en la lista total hasta localizar 
el número correspondiente al pue- 
blo seleccionado. 

Cuando se elige la opción de 
examen, el micro, pide el nivel de 
dificultad (EGB, Bachillerato o Es- 
pecialistas) y el nombre del exami- 
nado. Mediante un número aleato- 
rio selecciona un pueblo y dibuja 
una flecha que lo señala en el 
mapa. También mediante núme- 
ros aleatorios, escribe, en un late- 
ral de la pantalla, cinco nombres 
de pueblos, convenientemente nu- 
merados, entre los que se encuen- 
tra el del pueblo que existe en el 
lugar señalado en el mapa. Depen- 
diendo del indice de dificultad ele- 
gido se desprecian aquellos pue- 
blos demasiado pequeños o dema- 
siado cerca del correspondiente a 
la respuesta correcta. El usuario 
debe pulsar el número (del 1 al 5) 
que corresponde al pueblo que, se- 
gún él, está siendo señalado. 

El programa va memorizando el 


número de respuestas correctas se- 
guidas y presentando el valor del 
récord y el nombre de la persona 
que lo ha conseguido. Cuando una 
respuesta es errónea, da la respues- 
ta correcta y pone a cero el marca- 
dor de calificación. 

La elaboración de este programa 
ha pasado por diversas fases y per- 
feccionamientos, se han ido am- 
pliando las opciones del menú, se 
han ido incluyendo efectos sono- 
ros y musicales, etc., hasta que se 
ha agotado la memoria del mi- 
croordenador; al final han sido uti- 
lizadas hasta zonas de memoria 
que el micro reserva para sus pro- 


Examen de Geografía. para aprender la 
localización geográfica de los distintos 
pueblos. 


Tres niveles de dificultad: EGB, 
Bachillerato у Especialista. 


pias funciones, concretamente, la 
que reserva para controlar la im- 
presora. 

El programa puede ser adaptado 
para estudiar otras zonas geográfi- 
cas sin más que cambiar la panta- 
Ша del mapa y los datos. 


Se incluye una subrutina que 
permite la cómoda modificación 
de los datos para su actualización. 
Esta subrutina permite también, 
cambiar, con relativa facilidad, un 
tipo de datos por otros nuevos que 
se quieran introducir. 

Durante la VII Semana de Ex- 
tremadura en la Escuela se situa- 
ron ordenadores con este progra- 
ma en algunos locales de diversos 
pueblos de la región, para que fue- 
ran utilizados libremente por el 
público (para la mayoría este fue 
su primer contacto con un mi- 
croordenador). Una dificultad que 
apareció con cierta frecuencia con- 


Información sobre otra población, en este 
caso de Albala del Caudillo. 


Información sobre los pueblos: población, 
extensión, altitud, km. a la capitale índice 
de crecimiento. 


sistía en que algunos usuarios ini- 
ciados en la utilización de mi- 
croordenadores, hacían “Break” 
para pedir un listado y, cuando 
terminaban de curiosear, pulsaban 
“Run”. Esto originaba el borrado 
de las variables y el programa deja- 


ba de funcionar. Para evitar esta si- 
tuación se chequean todas las te- 
clas que van siendo pulsadas y se 
ignoran las que pueden producir 
errores, y se ha añadido una subru- 
tina que impide que el programa 
sea abierto. 

Las personas que deseen una co- 
pia en cinta de cassette de este pro- 
grama puede pedirlo a la Sección 
de Informática del ICE de la Uni- 
versidad de Extremadura, Avda. 
de Elvas, s/n. Badajoz. 


‚Рог E. Gómez, A. Pérez у M. Pérez. Sec- 
ción de informática del ICE de la Universi- 
dad de Extremadura. 


Desensamblador 


таріпеѕе que después de in- 

vertir su dinero en un «mara- 

villoso programa» para su 
Шш Spectrum descubre al llegar а 

casa que el preciado software 
no hace exactamente lo que se de- 
cía o quizá lo que usted pensaba 
que haría. O imagínese que desea 
hacer una modificación a una ruti- 
na de código máquina y se encuen- 
tra con que el fichero que contenía 
el programa fuente, da insistente- 
mente error de carga. 

En cualquiera de estos casos se 
verá a sí mismo estudiando una 
larguísima lista de códigos hexade- 
cimales, tratando de discernir qué 
hace el dichoso programa. Y aun- 


que el mismo manual de su Spec: 
trum contiene una lista de nemó- 
nicos y códigos asociados, no es 
una tarea sencilla ni agradable; de- 
jando aparte el agravante de que 
hay instrucciones de hasta 4 bytes 
de longitud que dificultan conside- 
rablemente el  «desensamblado 
manual». 

Este es el problema que el pro- 
grama propuesto resolverá. Preci- 
samente la interpretación de listas 
de códigos y otros trabajos mecáni- 
cos de esta índole son tareas en las 
cuales los ordenadores no tienen 
rival posible. Esto libera al progra- 
mador permitiéndole emplear su 
tiempo en tareas más creativas. 


Quizá los profanos en materia de 
lenguaje máquina sigan sin com- 
prender aún la necesidad de tal he- 
rramienta. Para ellos daremos una 
breve explicación al mínimo nivel 
posible. 

Los fabricantes de microproce- 
sadores crean, al diseñar uno de es 
tos elementos, un lenguaje de pro- 
gramación formado por comandos 
simples que controlan el micro- 
procesador, llamado lenguaje má: 
quina. El lenguaje máquina pro- 
piamente dicho se compone de ce- 
ros y unos agrupados en bloques de 
8 bits que forman los bytes. Cada 
uno de estos bytes tiene un signifi- 
cado propio como comando de 


"МОР": RETURN 
"LD BC,"+STRS ЕМ п(Р 
БЕК (cont+1),PEEK (сопея2)): LET 
cont=cont+2, RETURN 

3 ШЕТ ns="LD (BC), A": RETURN 

4 LET né="INC ВС": RETURN 

5 ШЕТ né="INC B": RETURN 

8 LET n$="DEC В": RETURN 

7 LET п®="р B,"+STRS (PEEK ( 
cont+1)): LET cont=cont+i: RETUR 
N 


8 LET n$="RLCA": RETURN 

9 LET n$="EX AF,AF?": RETURN 
10 LET n$="ADD HL,BC": RETURN 
11 LET n$="LD A, (BC)": RETURN 


12 LET RETURN 
13 LET n$="INC C": RETURN 
14 LET n$="DEC C": RETURN 


15 LET n$="LD C,"+STR$ (PEEK ( 
cont+1)): LET cont=cont+l: RETUR 
N 

16 LET n$="RRCA": RETURN 

17 LET n$="DJNZ "+STR$ FN j(co 
nt): LET cont=cont+1: RETURN 

18 LET n$="LD DE, "+STR$ FN n(P 
EEK (cont+1),PEEK (cont+2)): LET 
cont=cont+2! RETURN 

19 LET пФ". (ОЕ) „Ач: RETURN 

20 LET n$="INC DE": RETURN 

21 LET n$="INC D": RETURN 

22 LET n$="DEC Р": RETURN 


23 LET n$="LD D, "+STR$ (PEEK ( 
cont+1)): LET сопё=сопё+1: RETUR 
N 


24 LET n$="RLA': RETURN 
25 LET n$="JR "+STR$ FN ¡(cont 
LET cont=cont+1: RETURN 


26 LET n$="ADD HL, DE": RETURN 
27 LET р A, (DE): RETURN 
28 LET n$="DEC DE": RETURN 
29 LET n$="INC E": RETURN 
30 LET n$="DEC E": RETURN 


31 LET n$="LD E,"+STR$ (PEEK | 
cont+1)): LET cont=cont+1: RETUR 
N 

32 LET ns="RRA": RETURN 

52 LET n$="JR М2, "+STR$ FN ¿tc 
ont): LET cont=cont+1: RETURN 

34 LET n$="LD HL, "+5TR$ FN n(P 
ЕЕК (cont+1),PEEK (cont+2)): LET 


cont=cont+2: RETURN 
35 LET n$="LD ("+STR$ ЕМ n(PEE 
K (сопежі),РЕЕК (cont+2))+"), HL" 


% ШЕТ contecont+2: RETURN 
36 LET né="INC HL": RETURN 
37 LET né="INC Н": RETURN 


38 ГЕТ né="DEC H": RETURN 

39 LET né="LD H, "+STR$ (PEEK ( 
cont+1)): LET cont=comt+*1: RETUR 
м 

40 LET 


": RETURN 
41 ШЕТ n$="JR 2,"+STRS ЕМ ¿(co 
nt): LET тезі: RETURN 

42 ШЕТ n$="ADD НН": RETURN 

43 LET ns="LD HL, ("+STR$ FN п( 
PEER (cont+1),PEEK (cont+2))+")" 
3 LET cont=cont+2: RETURN 

44 LET RETURN 

45 LET ns="INC L": RETURN 

46 LET n$="DEC L": RETURN 

47 LET n$="LD L,"+STRS (PEEK ( 
cont+1)): LET contecont+i: RETUR 
N 

4B LET n$="CPL": RETURN 

49 LET n$="JR МС, "+STR$ ЕМ 3 (с 
ont): LET contecont+1: RETURN 

50 LET nê="LD SP, "+5ТКЯ FN n(P 
EEK tcont+1),PEEK (cont+2)): LET 
cont=cont+2: RETURN 

51 ШЕТ n$="LD ("+STR$ FN n (FEE 
K (cont+1),PEEK (cont+2))+"), A" 
ШЕТ contecont+2: RETURN 

52 LET n$="INC SP": RETURN 

55 LET n$="INC (HL)": RETURN 

54 LET n$="DEC (HL)": RETURN 

55 LET n$="LD (HL), "+STR$ (PEE 
K tcont+1)): LET cont=cont+1: RE 
TURN 

Sé ШЕТ n$="SCF": RETURN 

57 LET n$="JR С, "+STR$ FN j (со 
nt): LET cont=cont+1: RETURN 

58 СЕТ n$="ADD HL, SP": RETURN 

59 LET n$="LD A, ("+STR$ ЕМ n(P 
БЕК (cont+1), PEEK (cont+2))+")": 
ШЕТ cont=cont+2: RETURN 


60 LET n$="DEC SP": RETURN 
61 LET n$="INC A": RETURN 
62 LET n$="DEC A": RETURN 
63 LET n$="LD A,"+STRS (PEEK ( 


'cont+1)): ШЕТ cont=cont+is RETUR 


64 CF": RETURN 

65 В, В": RETURN 
bb B,C": RETURN 
67 B,D" RETURN 
58 В,Е": RETURN 
69 LET n$="LD B,H": RETURN 
70 ШЕТ n$="LD B,L"s RETURN 


71 LET n$="LD В, (HL): RETURN 
72 LET n8="LD B,A": RETURN 
С,В": RETURN 
С,С": RETURN 
C, D": RETURN 
С,Е": RETURN 
C,H": RETURN 
C, L": RETURN 
79 LET n$="LD C, (HL) ": RETURN 
80 LET n$="LD RETURN 
B1 LET n$="LD D B": RETURN 
82 LET n$="LD D,C": RETURN 
83 LET n$="LD D,D": RETURN 
Ва LET n$="LD D,E": RETURN 
85 LET n$="LD D,H": RETURN 
86 LET ns="LD D,L": RETURN 
87 LET ns=“LD D, (HL) "1 RETURN 
ВВ LET n$="LD D,A": RETURN 
89 LET n$="LD E,B": RETURN 
90 LET ns="LD Е,С": RETURN 
91 ПЕТ n$="LD E,D": RETURN 
92 LET né="LD Е,Е": RETURN 
93 LET n$="LD E,H": RETURN 
94 LET ns="LD E,L": RETURN 
95 LET n$="LD E, Н)": RETURN 
96 LET n$="LD E,A": RETURN 
97 LET n$="LD H,B": RETURN 
H.C": RETURN 
H.D": RETURN 
H.E": RETURN 
101 LET n$="LD H,H": RETURN 
102 LET n$="LD H,L": RETURN 
103 LET n$="LD Н, (HL)": RETURN 
104 LET n$="LD Н.А": RETURN 


106 LET n$="LD L, 
107 LET n$="LD L,D": RETURN 
108 LET n$="LD L,E": RETURN 
109 LET ns="LD 

110 LET n$="LD 
111 LET n$="LD L, (НЬ) "= RETURN 


RETURN 


112 LET n$="LD L,A": 
113 LET n$="LD (HL), B 


ETURN 
RETURN 


Con frecuencia oímos hablar de 
ensambladores-desensambladores, y de sus ventajas 
en la programación del código máquina. Javier 
Cancela nos desvela los misterios de estos últimos, y 


el listado completo del programa. 


ejecución de una orden o bien 
como una dirección de memoria o 
cifra. Para hacer comprensibles es- 
tos códigos se asocia a cada uno de 
ellos un nombre o nemónico que 
describe brevemente su función y 
sus argumentos, ya que de otra for- 
ma sería prácticamente imposible 
realizar programas de importancia 
en el lenguaje madre de los micro- 
procesadores. Existen programas 


"HALT": RETURN 


LD А, (HL); RETURN 


"ADD A,C": RETURN 


ADD A, СНС)": RETURN 


“ADC А,В": RETURN 


“арс A, (HL? “z 


"SUB (HL)": RETURN 


“SBC A, (HL) 


LET 
LET 
Ler 
LET 
LET 
LET 
LET 
LET 


O LET 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
СЕТ 
ГЕТ 


0 LET 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


196 LET 


198 LET 
199 LET 


200 LET 
201 LET 
202 LET 
203 LET 


AND C": RETURN 
п%="АМр D": RETURN 
"AND E": RETURN 
"AND H": RETURN 
"AND L": RETURN 


"AND А": RETURN 
пФ-"ХОН В": RETURN 
ns="XOR С": RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


n$="XOR А": RETURN 
RETURN 
RETURN 
пФ-"ОК D": RETURN 
п®="ОЕ E": RETURN 
n6="0R Н": RETURN 
R L's RETURN 


"OR (HL): RETURN 
"OR А": RETURN 
n$="CP В": RETURN 
n$="CP С": RETURN 
п%="СР D": RETURN 


n$="CP E": RETURN 
п%="СР Н": RETURN 
n$="CP L": RETURN 


ns="CP (НЬ) ": RETURN 


Р А": RETURN 


ns: 


n$="RST О": RETURN 
n$="RET Z": RETURN 
n$="RET": RETURN 

ns 


"АМО (HL) ": RETURN 


RETURN 


“НЕТ NZ": RETURN 
n$="POP ВС": RETURN 
n$="JP NZ, "+5TR$ FN n(P 
(cont+1),PEEK (cont+2)): 

cont=comt+2: RETURN 
n$="JP "+STR$ FN п (РЕЕК 
(cont+1),PEEK (cont+2)): LET co 
nt=cont+2: RETURN 
197 LET né="CALL NZ,"+STRS FN п 
(cont+1) , PEEK 

ЕТ cont=cont+2: RETURN 
n$="PUSH EC": RETURN 
"арр A, "+STRS (PEEK 
(cONt+1)): LET cont=cont+1: 


(cont+2))3 


JP 2,"+STRS ЕМ n(PE 


ЕК (cont+1),PEEK (cont+2)): LET 
cont=cont+2: RETURN 

204 (ЕТ contscontri: 80 SUB (30 
O+PEEK cont): RETURN 

205 LET n$="CALL Z,"+STR$ FN nt 
PEEK (cont+1),PEEK (сопё+2)): LE 
Т _cont=cont+2: RETURN 

206 LET n$="CALL "+STR$ ЕМ n(PE 
EF (cont+1),PEEK (cont+2)): LET 
cont=cont+21 RETURN 

207 LET n$="ADC A,"+STRS (PEEK 
(cont+1)): LET сөзі-сетезі: RETU 
RN 

208 LET n$="RST 8": RETURN 

209 LET n$="RET NC": RETURN 
210 LET n$="POP DE": RETURN 

211 LET n$="JP NC, "+STR9 FN n(P 
EEK (cont+1),PEEK (cont+2)): LET 
contstont+2: RETURN 3 
212 LET пФ-"ОИТ ("+STR$ (PEEK ( 
cont+1))+"),4% LET cont=cont+1+ 
RETURN 

213 LET n$="CALL NC,"+STR$ FN n 
(PEEK (cont+1),PEEK (cont+2)): L 
ЕТ cont=cont+2: RETURN 

214 LET ne="PUSH DE”: RETURN 
215 LET n$="SUB "+STR$ (PEEK (с 
ont+1)): LET cont=cont+1: RETURN 


216 LET n$="RST 16%; RETURN 
217 LET n$="RET C": RETURN 
218 LET n$="EXX": RETURN 


219 LET n$="JP C,"+STR$ ЕМ n(PE 
ЕК (cont+1),PEEK (cont+2)): LET 

cont=cont+2: RETURN 

220 LET n$="IN A, ("+STR$ (PEEK 

(cont+t))+")": LET cont=cont+1: 

RETURN 

221 LET n$="CALL С, "+STR$ FN п( 
PEEK (cont+1),PEEK (cont+2)): LE 
Т contecont+2; RETURN 

222 LET cont=cont+1: LET i$="IX 
“: 80 SUB (900+PEEK cont): RETUR 
N 

223 LET n$="SBC A,"+STRS (PEEK 

(cont+1)): LET cont=cont+1: RETU 
RN 

224 LET n$="RST 24": RETURN 

225 LET n$="RET PO": RETURN 

226 LET n$="POP HL": RETURN 


llamados ensambladores que gene- 
ran a partir de un texto de nemóni- 
сов los bytes que forman el progra- 
ma еп máquina en la memoria del 
ordenador. Los desensambladores 
realizan precisamente la función 
contraria: generan el texto de ne- 
mónicos a partir de los códigos. 
Después de esta pequeña clase, 
nos centraremos en el programa en 
cuestión. Está realizado ea BASIC 
y es de gran sencillez para facilitar 
la comprensión de su funciona- 
miento. El precio de ello es una 
mayor longitud y por tanto más 
memoria ocupada. Optamos por 
esta solución en lugar de un pro- 
grama más corto, pero con técni- 
cas que harían notablemente más 
difícil su entendimiento. El pro- 
grama puede desensamblar código 
en cualquier dirección de memoria 
que no pertenezca a la porción 
ocupada por el propio programa 
en BASIC. El software a procesar 
que se halle en esta zona de memo- 
ria podrá ser decodificado simple- 
mente cargándolo en una direc- 
ción que se halle libre; con la faci- 
lidad que para ello nos da el co- 
mando del Spectrum LOAD 


““CODE nnnnn; donde ппппп es 
la dirección de memoria. El pro- 
grama preguntará dónde se halla 
realmente el código (dirección 
real) y dónde se debería hallar (di- 
rección virtual); de forma que el 
desensamblado aparecerá en pan- 
talla con las direcciones y saltos 
correspondientes a la zona donde 
normalmente reside el código. y 
donde verdaderamente debe ejecu- 
tarse. Huelga decir que el progra- 
ma а desensamblar deberá cargarse 
siempre por encima del RAMTOP 
establecido si no se quiere corrom- 
per el propio desensamblador. El 
RAMTOP será determinado por el 
propio usuario antes de cargar el 
programa BASIC, de forma que 
quede espacio suficiente para el 
programa en máquina. El CLEAR 
más bajo que se жейде realizar con 


el desensamblador cargado es de 
aproximadamente 40000, ya que 
el programa ocupa unos 15 kbytes 
de memoria, que se convierten en 
16 con el espacio ocupado por las 
variables y el sistema BASIC. 

El programa dará un desensam. 
blado de cualquier código, pero si 
éste es una tabla de datos, o una 
cadena de caracteres, el resultado 
será un algoritmo sin sentido; ya 
que no puede ser capaz de diferen- 
ciar datos de verdaderas instruc- 
ciones. 

El funcionamiento del programa 
es de una simplicidad absoluta: al 
ser cargado se pondrá en funciona- 
miento e inmediatamente pregun- 
tará la dirección real, o el lugar 
donde se encuentra realmente el 
programa, y posteriormente pedirá 
la dirección donde debería residir 
(obviamente se deberá contestar a 
las dos preguntas con la misma res- 
puesta si no se ha desplazado el có- 
digo de su dirección de ejecución). 
Después se deberá proporcionar el 
número de bytes que se desean de- 
sensamblar. Realizando el desen- 
samblado en varios bloques se 
pueden evitar tablas o cadenas que 


227 LET n$="JP PO, "+STRS ЕМ n(P 

ЕЕК (cont+1),PEEK (соп&+2)): LET 
“ont+2: RETURN 

228 LET п%="ЕХ (SP), HL": RETURN 


229 LET né="CALL РО, "+STR$ FN n 
(PEEK (cont+1),PEEK (соп&+2)): L 
ЕТ cont=cont+2: RETURN 

230 LET n$="PUSH HL": RETURN 
231 LET n$="AND "+STR$ (PEEK (с 
ont+1)): LET cont=cont+1: RETURN 


232 LET n$="RST 32": RETURN 
233 LET n$="RET PE": RETURN 
234 LET n$="JP (HL)": RETURN 
235 LET n$="JP PE, "+STR$ ЕМ п(Р 
EEK (cont+1),PEEK (cont+2))1 LET 
cont=cont+2: RETURN 
236 LET n$="EX DE, HL": RETURN 
237 LET ns="CALL РЕ, "+STRS FN n 
(PEEK (cont+1),PEEK (соп&+2)): L 
ЕТ cont=cont+2; RETURN 
238 LET cont=cont+1: GO SUB (60 
O+PEEK cont): RETURN 
239 LET n$="XOR "+STRS (PEEK (c 

ont+1)): LET cont=cont+l: RETURN 

240 LET n$="RST 40": RETURN 
241 LET n$="RET P": RETURN 
242 LET n$="POP AF": RETURN 
243 LET n$="JP P,"+STRS FN n (PE 

ЕК (contti), PEEK (eont+2)): LET 

cont=cont+2: RETURN 
244 LET n$="DI": RETURN 

245 LET n$="CALL P,"+STR$ FN п( 

PEEK (cont+1),PEEK (сопё+2)): LE 
Т cont=comt+Z: RETURN 
246 LET n$="PUSH AF": RETURN 


247 LET n$="0R "+STR$ (PEEK (co 
nt+1)): LET cont=cont+1: RETURN 
248 LET n$="RST 48": RETURN 


249 LET n$="RET M": RETURN 


250 LET n$="LD SP,HL": RETURN 
251 LET n$="JP M,"+STR$ ЕМ п(РЕ 
ЕК (cont+l),PEEK (eont+2)): LET 
cont=cont+2; RETURN 

252 (ЕТ п%="Е1": RETURN 

253 LET n$="CALL М, “+STR$ ЕМ ní 
PEEK (cont+1),PEEK (cont+2)): LE 
Т contecont+2: RETURN 

254 (ЕТ cont=cont+is LET i$="IY 
"1 GO SUB (900+РЕЕК cont): RETUR 
N 

255 LET n$="CP "+STRS (PEEK (co 
пї+1)): LET соп&=сопЕ+1: RETURN 


256 LET n$="RST 56": RETURN 
300 LET n$="RLC B": RETURN 
301 LET n$="RLC C": RETURN 


302 LET né="RLO D": RETURN 
303 LET n$="RLC E": RETURN 
304 LET n$="RLC H": RETURN 
305 LET n$="RLC L": RETURN 
306 LET n$="RLC (НЬ) ": RETURN 
307 LET n$="RLC A": RETURN 
308 СЕТ n$="RAC В": RETURN 
309 LET n$="RRC C": RETURN 


310 LET ҚАС D": RETURN 
311 LET ВЕС E": RETURN 
312 LET ВЕС Н": RETURN 
313 LET КЕС L": RETURN 
314 LET "ВЕС (HL) "2 RETURN 
315 LET n$="RRC RETURN 


316 LET 
317 LET 
318 LET 
319 LET 
320 LET 
321 LET ns="RL L“! RETURN 

322 LET n$="RL (HL)": RETURN 
323 LET n$="RL A": RETURN 

324 LET 
325 LET 
326 LET 


L вез RETURN 
RL С“: RETURN 


327 LET n$="RR E": RETURN 
328 LET n$="RR H": RETURN 
329 LET n$="RR L": RETURN 
530 LET n$="RR (HL) ": RETURN 
331 LET n$="RR A": RETURN 
532 LET n$="SLA В": RETURN 


333 LET n$="SLA С": RETURN 
D": RETURN 
E": RETURN 
Н": RETURN 
L": RETURN 
(HL) "s RETURN 
A": RETURN 
340 LET n$="SRA В": RETURN 
341 LET n$="SRA C": RETURN 
342 LET n$="SRA D": RETURN 


заз LET n$="SRA E": RETURN 
344 LET n$="SRA Н": RETURN 
345 LET n$="SRA L": RETURN 
346 LET n$="SRA (HL)": RETURN 
347 LET n$="SRA A": RETURN 
355 LET n$="Error": RETURN 
356 LET n$="SRL В": RETURN 
357 LET n$="SRL C": RETURN 
D": RETURN 
E": RETURN 
Н": RETURN 
361 LET n$="SRL L": RETURN 
362 LET n$="SRL (HL)": RETURN 
363 LET n$="SRL A": RETURN 


371 LET n$="BIT О,": GO SUB 500 
О: RETURN 
379 LET ns 1,4: 80 SUB 500 


О: RETURN 
387 LET n$="BIT 2,": 60 SUB 500 
O: RETURN 
395 LET n$="BIT 3,": 80 SUB 500 
0: RETURN 
405 LET n$="BIT 4,": GO SUB 500 
O: RETURN 
411 LET n$="BIT 5,": GO SUB 500 


ж.--- 


se hallen entre medias del progra- 
ma en código máquina. Por último 
será necesario contestar si se desea 
volcar el desensamblado por una 
impresora o bien por pantalla. La 
opción de impresora está pensada 
en principio para impresoras de 80 
columnas, de forma que se aprove- 
che el espacio extra, sacando dos 
instrucciones de programa por 
cada línea. Para aquellos usuarios 
más modestos que sólo dispongan 
de la impresora de Sinclair, expli- 
caremos más adelante cómo modi- 
ficar el programa para usar este pe- 
riférico. 

En cuanto a los listados resul- 
tantes hemos de especificar que to- 
das las cifras aparecen en decimal. 
Escogimos esta alternativa en lu- 
gar del sistema hexadecimal (mu- 
cho más extendido en el mundo 
del lenguaje máquina), debido a 
que el Spectrum no dispone de la 
posibilidad de escribir números en 


esta base, ni de funciones de con- 
versión de tipo alguno; y esto ha 
llevado a que la mayoría de los 
usuarios estemos acostumbrados a 
manejar direcciones y bytes de me- 
moria en nuestro viejo sistema de- 
cimal. Los nemónicos son por su- 
puesto los establecidos por ZI- 
LOG, fabricante del procesador 
780. Los saltos relativos de las ins- 
trucciones JR y DINZ son dados 
en forma de etiquetas; es decir, en 
lugar del número de bytes del sal- 
to, aparecerá la dirección de la ins- 
trucción a la que se realiza el salto. 


Cómo funciona 


El programa se empieza a ejecu- 
tar еп la línea 2000. Como decía- 
mos anteriormente, no se hace 
ningún CLEAR en él; esta instruc- 
ción se debe ejecutar antes que el 
programa y según la dirección del 
código. La primera línea fija los 
colores del papel y la tinta y limpia 
la pantalla. Por supuesto, se pue- 
den cambiar los colores por otros 
cualesquiera. Después tenemos 
dos definiciones de funciones: la 
primera convierte un salto relativo 
de una instrucción JR o DJNZ en 
una etiqueta que indica la direc- 
ción donde se realiza el salto. La 
segunda convierte los valores entre 
0 y 255 de dos bytes que represen- 
ten una dirección de memoria en 
una cifra entre 0 y 65535 (0 a 64 
kbytes). 

Las líneas 2010 a 2025 realizan 
la entrada de datos necesarios para 


0: RETURN 

419 LET n$="BIT 6,": 80 SUB 500 
0: RETURN 

427 LET ne="BIT 7,4: 60 SUB 500 
0: RETURN 

435 LET né="RES 0,!: GO SUB 500 
01 RETURN 

даз (ЕТ n$="RES 1,”: 60 SUB 500 
0: RETURN 

451 LET п 
0: RETURN 
459 LET né="RES 3,": 60 SUB 500 
о: RETURN 

467 LET n$="RES 4,": 60 SUB 500 
0: RETURN 

475 LET né="RES 5,": 50 SUB 500 
0: RETURN 

483 LET ns="RES 6,": 80 SUB 500 
RETURN 
91 LET n$="RES 7,": 60 SUB 500 
0: RETURN 

499 LET né="SET О,": 60 SUB 500 
9: RETURN 

507 LET n$="SET 1,": 80 SUB 500 
0: RETURN 

515 LET n$="SET 2,%; 80 SUB 500 
9: RETURN 

523 LET né="SET 3," 60 SUB 500 
0: RETURN 

531 LET n$="SET 4,": GO SUB 500 
9: RETURN 

529 LET n$="SET 5,": бй SUB 500 
0: RETURN 

547 LET n$="SET 6,": 60 SUB 500 
0: RETURN 
55 LET ne="SET 7, GO SUB 500 
RETURN 

664 LET né="IN В, (С) ": RETURN 
665 LET n$="0UT (С), В": RETURN 
666 LET n$="SBC HL, BC”: RETURN 
667 КЕТ né="LD ("+STR$ ЕМ п (РЕБ. 
K fcont+1),PEEK (cont+2))+"), BC" 

LET cont=cont+2: RETURN 

668 LET n$="NEG": RETURN 

669 LET n$="RETN": RETURN 

870 LET n$="IM О": RETURN 

671 LET n$="LD I,A": RETURN 
872 LET n$="IN С, (C)": RETURN 
673 LET n$="DUT С, (С) ": RETURN 


"RES 2,": 80 SUB 500 


o 


874 (ЕТ né="ADC НЇ,БС“: RETURN 


875 LET n$="LD BC, ("+STRS FN n( 
PEEK (cont+1),PEEK (cont+2))+")" 
1 ШЕТ cont=cont+2s RETURN 

877 LET n$="RETI": RETURN 

879 LET n$="LD В,А": RETURN 
680 LET n$="IN D, (C)": RETURN 
681 LET n$="DUT (C),D": RETURN 
682 LET n$="SBC HL, DE": RETURN 
683 LET n$="LD ("+5TR$ FN n (PEE 
К (cont+1),PEEK (cont+2))+"),DE* 
1 LET cont=cont+2: RETURN 

686 LET n$="IM 1%; RETURN 

687 LET n$="LD 8,1%: RETURN 
688 LET n$="IN E, (C)": RETURN 
689 LET n$="0UT (С),Е": RETURN 
690 LET n$="ADC HL, ШЕ": RETURN 
691 LET né="LD DE, ("+STR$ FN п( 
PEEK (cont+1),PEEK (cont+2))+")" 
% ШЕТ cont=cont+2: RETURN 

694 LET n$="IM 2": RETURN 

695 LET n$="LD A,R": RETURN 
69b LET n$="IN_ H, (C) і RETURN 
897 LET n$="0UT (C),H": RETURN 
698 LET n$="SBC HL,HL": RETURN 
699 LET ng="LD ("+5TRS ЕМ (PEE 
к iconteL) ¿PEER (Cont+2) 4") М" 
з LET contecont+2; RETURN 

703 LET ns="RRD"; RETURN 


704 LET n$="IN L, (С) "з RETURN 
705 LET n$="DUT (C),L": RETURN 
А LET п%-"АрЁ HL, HL": RETURN 


207 LET n$="LD HL, ("+5 


Ф EN n( 


PEEK (сопЕ+1) „РЕЕК (сапк+2))+")" 
: LET cont=cont+Zs RETURN 

711 LET né="RLD": RETURN 

712 LET ns="IN F, (0) "= RETURN 

714 LET nt- 1 RETURN 
718 LET né="LDO'+STR$ ЕМ mí 


(cont+1), PEER (cont+2 
LET cont=contez: RETUR 
720 LET n$="IN A, (С) 
721 LET n$="DUT (C),A": RETURN 
722 LET n$="ADG HL, SP": RETURN 
LET n$="LD SP, ("+STR$ EN nt 
(сопежі) PEEK (сопе+2) +9)" 


19 SE 


RETURN 


PEEK 


а LET contscont+2: RETURN 
760 LET n$="LDI": RETURN 
761 LET п®="СР1": RETURN 
762 LET né="INT": RETURN 


2635 LET RETURN 
768 LET RETURN 
769 LET RETURN 
770 ГЕТ RETURN 


771 LET пФ«"ПШТр!: RETURN 
776 LET n$="LDIR": RETURN 


777 LET n$="CPIR"; RETURN 
778 LET пФ-"ІмІні: RETURN 
279 LET n$=' OTIR": RETURN 
784 LET nss"LDDR": RETURN 
785 LET n$="CPDR": RETURN 
786 LET ne="INDR": RETURN 
787 LET n$="OTDR": RETURN 
909 LET n$="ADD "+i$+",BC": RET 


URN 


925 LET n$="ADD "+", ПЕ": RET 
URN 

922 LET пв") "+i$+", "+STR$ FN 
П(РЕЕК (conttl), PEEK (cont+2)): 


LET contscont+2: RETURN 

824 LET n$="LD (“eSTRS FN n(PEE 
k (conte), PEEK icontt2)}+"), "+i 
t: LET contecont*Zs RETURN 

935 LET n$=" INC RETURN 
941 LET п®="арр пФ: ЕР 
TURN 

942 LET n$="LD 


targan, (ASTRE F 
N n(PEEK (cont+1),FEEK (conteo) 
+t)": LET contecont+2: RETURN 
942 LET n$="DEC "+1%: RETURN 
952 LET пж-“ІМС Счет ТЫ 


PEEK (cont+1)+")": LET cont=cont 
+12 RETURN 
953 LET пФ "ЕС ("+1%+"+"+5ТН® 


K (conter) e" 
2 RETURN 
954 LET панир ("tigt"+"+STRS P 


і ШЕТ cont=cont 


БЕК (cont+1)+"),"+BTR$ PEEK (con 
Ж+23: ШЕТ cont=cont+2; RETURN 
957 LET па-"Ар0 "sis %% RET 


URN 

970 LET n$="LD B, (“іе ТН 
PEEK (cont+t1)+")": LET cont=con 
ttti RETURN 

978 LET NS="LD б, (ізі өт 
PEEK (cont+l)+")%s LET cont=con 
tti: RETURN 

986 ШЕТ n$="LD D, (езт БТЗ 
PEEK (сопкзізжеуі% LET сопз&-соп 


el funcionamiento del programa. 
La dirección real del programa es 
almacenada en la variable «dir». 
La dirección virtual o de ejecución 
se toma en la variable «pos»; y el 
número de bytes es guardado en 
«Ton». La variable «imp» tomará 
el valor 1 cuando se desea salida 
por impresora. En la línea 2030 se 
inicializan algunas variables: 
«cont» es el puntero de dirección 
de la instrucción en curso de deco- 
dificación; y «offset» es la diferen- 
cia entre las direcciones real y vir- 
tual, que será usada posteriormen- 
te para calcular los saltos relativos, 
etc. La variable «col» es usada para 
la impresión a 80 columnas, de 
forma que el carro salte de línea en 
el momento adecuado. 

Las líneas 2040 a 2080 consti- 
tuyen el bucle principal del pro- 
grama. En la 2040 se toma el byte 
al que apunta el puntero de direc- 
ción. En la 2045 aparece la varia- 


ttis RETURN 
994 ШЕТ n$="LD Е,("+1%+'+"+8ТК% 
PEEK (соп&+*1)+")": LET contscon 
t+1: RETURN 


1002 LET n$="LD H, ("+i$+"+"+STRS 
PEEK (cont+1)+")": LET cont=con 
t+1: RETURN 

1010 LET n$="LD L, (Mei gee 04STRO 
PEEK (cont+1)+")": LET cont=con 
tel RETURN 

1012 LET n$="LD ("+i$+"+"+STRS Р 
БЕК (conttt)+"), B": LET cont=con 
tel: RETURN 

1013 LET n$="LD ("+i$+"+"+STR$ P 
EEK (cont+1)+"),0% LET cont=con 
ttl: RETURN - 

1014 LET жатыр ("+ї®+"+"+ВТН% P 
EEK (cont+1)+"), D": LET cont=can 
ttt: RETURN 
1015 LET пж 
EEK (cont+l) 
ttl: RETURN 
1016 LET n$="LD ("+1$t"4"+STR® P 
EEK (cont+1)+"), H": LET cont=con 
tel: RETURN 

1017 LET n$="LD ("+i $+"+"+STR$ P 
ЕЕК (cont+1)+"),L"1LET cont=con 
Егіз RETURN 2 

1019>LET n$="LD ("+i$+"+"+STRS Р 
EEK (cont+1)+"),A":LËT cont=cont 
+1+ RETURN 

1026 LET né="LD 
PEEK (cont+1)+" 
tel: RETURN 
1034 LET n$="ADD ("+i$+"+"+STRS 
PEEK (cont+1)+")"1 LET contecont 
+1: RETURN 

1042 LET n$="ADC ("+i$+"+"+STR$ 
PEEK (cont+1)+")": LET cont=cont 
+1: RETURN 

1050 LET n$="SUB ("+i$+"+"+STR$ 
PEEK (cont+1)+")": LET cont=cont 
+1: RETURN 

1058 LET n$="SBC ("+i$+"+"+STR$ 
PEEK (соп®+ж1)+")'т: LET cont=cont 
+1: RETURN 
1066 LET пе" 
PEEK (cont+1)+ 


D ("+i St"+"+STRS P 
"J E": LET contecon 


y (LEE +STRS 
LET cont=con 


р ("+ig+"+"+STRS 
бі LET cont=cont 


ble «d», que será la dirección que 
aparecerá en pantalla, es decir, la 
dirección real de ejecución del có- 
digo. Esta se obtiene añadiendo al 
puntero «cont» el desplazamientó 
«offset». La línea 2050 es realmen- 
te la clave del funcionamiento de 
todo el programa. Esta instrucción 
llama a una subrutina cuyo núme- 
ro de línea es igual al valor del byte 
de código tomado más uno. De 
esta forma según la instrucción a 
decodificar, el programa llamará a 
una subrutina o a otra. En cada 
una de las distintas subrutinas (for- 
madas por una sola línea de pro- 
grama), se asigna un valor a la va- 
riable alfanumérica «n$». Esta va- 
riable correspone a nemónico de la 
instrucción decodificada. Por otra 
parte se calculan los saltos o direc- 
ciones que pudiesen existir en la 
instrucción mediante llamadas a 
las funciones definidas de las que 
se habló antes. Si la instrucción 


está formada por más de 1 byte, el 
puntero es incrementado según co- 
rresponda. Una vez realizadas es- 
tas funciones, el control es devuel- 
to al bucle principal. En la instruc- 
ción 2060 se imprime en pantalla 
la instrucción decodificada; en pri- 
mer lugar la dirección donde resi- 
de («d») y en segundo lugar el ne- 
mónico con sus operandos («n$»). 
Si no se ha escogido la opción de 
impresora se salta el bloque de li- 
nes que realizan esta función. 

La línea 2063 «pokea» en la va- 
riable del sistema SCR CT un va- 
lor mayor de 1, evitando que el 
ordenador se pare cuando se 
llene una pantalla preguntando 
«scroll?». De esta forma, el listado 
saldrá a la vez por impresora y 
pantalla, sin necesidad de presio- 
nar una tecla cada 22 líneas. Las li- 
neas 2065 y 2067 ejecutan la salida 
por impresora a 80 columnas. Si se 
dispone de una impresora Sinclair 


+1: RETURN 

1082 LET n$="0R ("+1%+"+"+5ТБ% Р. 
EEK (cont+1)+")": LET cont=cont+ 
1: RETURN 

1090 LET п%="СР ("+i$+"+"+5TR$ P 
EEK (cont+1)+")": LET cont=cont+ 
їз RETURN 

1105 LET cont=cont+2s GO SUB (15 
O0+PEEK cont): RETURN 

1125 LET пФ-"РОР “+i$: RETURN 
1127 LET n$="EX (SP), "+19: RETUR 
м с; 

1129 (ЕТ né="PUSH "+1%: RETURN 
1133 LET n$="JP ("+i$+")": RETUR 
N 

1506 LET n$: 
TRS PEEK 


"ВС (A), ("+i$+"+"+5 
t-1)+") "i RETURN 


1514 LET ЕС (A), ("+ї®+"+"+5 
TRS PEEK 194") "+: RETURN 
1522 LET RL (A), (Meis 4 +" 4ST 
R$ PEEK (cont-1)4+") "а RETURN 


1530 (ЕТ n$="RR (А), ("+18+"+"*ST 
R$ PEEK (соп%-1)%")": RETURN 
1538 LET né="SLA ("+i$+"+"+STR$ 
PEEK (сопё-1) +") ": RETURN 

1546 LET n$="SRA ("+i$+"+"+5TRS 
PEEK (cont-1)+")"» RETURN 

1562 (ЕТ n$="SRL ("+18+"+"+STR$ 
PEEK (сопё-1) +") ": RETURN 

1626 LET пФ="ВІТ "*STRS ((PEEK ( 
cont)-70)/B)+", ("+i$+"+"+STR$ РЕ 
ЕК (cont-1)+")"z RETURN 

1690 LET né="RES "+STR$ ((PEEK ( 
cont)=134)/8)+", ("+i$+"+"+5TRS P 
EEK (cont-1)+")": RETURN 

1754 LET n$="SET "+STRS ((PEEK ( 
cont)-198)/8)+", ("+16+"+1+5TRS P 
EEK (сопё-1) +") ": RETURN 

2000 ІМК 7: PAPER О: BORDER 0: С 
Ls 

2001 DEF ЕМ j(c)=(PEEK (с+1)+((Р 
EEK (c+1)<=127)*(0+2))-((PEEK (с 
+1)>127)*(PEEK (c+1)))+((PEEK (с 
+1) 127) ж(є-25а+РЕЕК (e+1))))+of 
tset 

2005 DEF FN n(1,h)=256*h+1 

2010' INPUT "Direccion real del p 
rograma?",dir 

2015 INPUT "Direccion virtual de 


= 
PEEK (cont+1)+")": LET cont=cont | 1 programa?",pos 


2020 INPUT "Numero de bytes?"jlo 


п 
2025 LET ітр=0: INPUT "Impresora 
? (в/п)%3хФі IF x$="s" THEN LET 
imp=1: LPRINT CHRS 13 

2030 LET cont=dir: LET offset=po 
s-dir: LET col=0 

2040 LET byte=PEEK cont: LET col 
=со1+1 

2045 LET d=cont+offset 

2050 GO SUB byte+i 

2060 PRINT d,n$: IF 1mp=0 THEN 
60 ТО 2070 

2063 POKE 23692, 255 

2065 IF (INT (col/2))<>(col/2) Т 
НЕМ LPRINT d,n8, 

2067 IF (INT (со1/2))-(со1/2) TH 
ЕМ LPRINT d,n8,, 

2070 LET cont=cont+1 

2080 IF cont<=(dir+lon-1) THEN 
86 то 2040 

2085 IF іпр=1 THEN LPRINT СНЕЖ 
13 

2090 PAUSE О: GO TO 2000 

5000 IF ІМТ (10#(((PEEK cont)/8) 
ІМТ ((PEEK cont)/8)))=0 THEN L 
ET п%=п®+'В" 

5010 IF INT (10*(((PEEK cont)/8) 
-INT ((РЕЕК cont)/8)))=1 THEN L 
ЕТ п#=п®+'С" 

5020 IF INT (10#(((РЕЕК cont)/8) 
INT ((РЕЕК cont)/8)))=2 THEN L 
ЕТ п=п+'0" 

5030 IF ІМТ (1О#(((РЕЕК cont)/8) 
ZINT ((PEEK cont)/8B>))=3 THEN L 
ЕТ п%=п®+'Е" 

5040 IF ІМТ (10*(((PEEK cont)/B) 
ІМТ ((РЕЕК cont)/8)))=5 THEN È 
ЕТ п%=п%+"Н“ 

5050 IF ІМТ (10*(((PEEK cont)/8) 
-INT ((PEEK cont)/8)))=é THEN L 
ЕТ nsen$+"L" 

5060 IF ІМТ (10#( (PEEK cont)/8) 
ZINT ((РЕЕК cont)/8)))=7 THEN L 

ЕТ n$=n$+' (HL) " 

5070 IF ІМТ (10*(((PEEK cont) /8) 
-INT ((PEEK cont)/8)))=8 THEN L 
ЕТ п%=п®+"А" 

оно RETURN 


u otra de 32 caracteres por línea, se 
deben sustituir estas dos instruc- 
ciones poresta otra: 

2065 LPRINT d,n$ 
de forma que se imprima un solo 
nemónico por línea. 

En la línea 2070 se incrementa 
el puntero de dirección. En la 2080 
se retorna al principio del bucle y 
se repite el proceso, siempre y 
cuando no se haya llegado a deco- 
dificar el número de instrucciones 
requeridas. Si se alcanza esta con- 
dición el programa sale del bucle y 
se envía un carácter de retorno de 
carro a la impresora (si se escogió 
esta opción) para impedir la línea 
que pueda quedar en el buffer de 
ésta. Por último, el programa se 
detiene hasta que se presiona una 
tecla y se reinicializa para un nue- 
vo desensamblado, 

El resto del programa está for- 
mado por las subrutinas de todos y 
cada uno de los nemónicos que 
constituyen el lenguaje máquina 
del 280. Las líneas 1 а 255 forman 


repararlo con cualquiera. 


Sólo Hissa te puede garantizar 
la utilización de piezas originales SINCLAIR 


Y es lo lógico. Si has elegido el mejor 
microordenador del mercado, no vas a 


Servicio Oficial „Му 


el bloque de instrucciones cuyos 
códigos de operación están forma- 
dos por un solo byte (la instrucción 
completa con operandos puede te- 
ner más de un byte). Las líneas 300 
a 555 son las instrucciones cuyo 
código de operación empieza con 
el byte 203. Lo mismo es aplciable 
а las líneas 664 a 787, pero con el 
byte 237. Estas subrutinas son Па- 
madas desde las líneas 204 y 238 
respectivamente. Las líneas com- 
prendidas entre la 909 y la 1754 
son las correspondientes a las ins- 
trucciones que manejan los regis- 
tros índice ІХ e ІҮ. La rutina a 


partir de la línea 5000 en adelante, 
determina el registro con que оре- 
ra un grupo de instrucciones según 
el valor de sus códigos, y es llama- 
da desde las subrutinas correspon- 
dientes a cada instrucción. 

Después de esta profunda des- 
cripción del programa, daremos 
algunas sugerencias para su imple- 
mentación Y utilización. En pri- 
mer lugar, la importancia funda- 
mental de los NUMEROS de LI- 
NEA de las sentencias del progra- 
ma: no se deben cambiar o alterar, 
pues en ellos se basa el funciona- 
miento del programa. Tecleado 
todo el programa en el ordenador, 
se salvará con un nombre cual- 
quiera y con el comando LINE 
2000, de forma que cada vez que se 
cargue, comience a ejecutarse au- 
tomáticamente en la sentencia co- 
rrecta. Si por cualquier circunstan- 
cia se parase la ejecución, se debe- 
rá emplear el comando RUN 2000 
o GOTO 2000 para recomenzar el 
programa. 


.. MI ORDENADOR ES SINCLAIR, 
І SERVICIO TECNICO ES HISSA. 


Y recuerda 
con el precio. 


stronica, 


y expertos técnicos en reparación. 


Acude a la delegación ESSA más cercana. 


“COSTE ESTANDAR POR 
REPARACION” 


que no tendrás sobresaltos 


Ро de Ronda, n° 82, 1 E 
Tell; (958) 26 15 94 
18006 GRANADA 


С/ 19 de Julio, n° 10 - 2° local 3 
Tell, (985) 21 88 95 
33002 OVIEDO 


Су. Aribau, пе 80, piso 5° 1% 
Telts: (93) 323 41 65 - 323 44 04 
08036 BARCELONA 


С/ San Sotero, пе 3 
Telts. 754 31 97 - 754 32 34 
28037 MADRID 


C/. Avda. de lo Libertad n° 5 Blog 1° ЕШ izq D. 
Tell, (968) 23 18 34 
30009 MURCIA 


Avda. de Gasteiz, n° 19 A- 17D 
Tell; (945) 22 52 05 
01008 VITORIA 


С/. Universidod, пе 4 - 2514 
Tell, (96) 352 48 82 
46002 VALENCIA 


Су. Мшез. n° 4 - 5° D 
Telt. (976) 22 47 09 
50003 ZARAGOZA 


Hermanos del Rio Rodíiguez, n 7 bis 
Telt: (954) 36 1708 
41009 SEVILLA 


бу. Travesía de Vigo, п? 32-19 
Tell (986) 37 78 87 
в\бо 


ENTREVISTA 


SOFTWARE 
EDUCATIVO: 


IQUE 
DIVERTIDO! 


Hablar de programas educativos no es sinónimo de 
programas aburridos. Los que más han estudiado el 
tema son las casas de software americanas, quienes 
incorporan en sus plantillas un amplio número de 
psicólogos y pedagogos. Hablamos con Damià 
García, gerente de Idealogic y gran conocedor de la 
problemática educativa de este país. 


En Barcelona, en unos bajos re- 
cién estrenados, vamos a visitar a 
Damiá García; gerente de Idealo- 
gic, empresa editora de software 
educativo. 

Recorremos los pasillos del 
cuartel general. Vemos en una 
acristalada sala a la derecha que 
varios programadores trabajan fe- 
brilmente. Un cartel lo dice todo: 
«Sala de Pensar». 

Damià nos recibe en su despa- 
cho. El es sicólogo de profesión, 
uno de los pioneros en trabajar con 
Logo en Barcelona, e impulsor de 
la edición de programas educati- 
vos para micrordenadores. 

Le preguntamos el por qué del 
sofiware educativo. 

—la idea de por qué debe exis- 
tir un sofi educativo para mí, está en 
la esencia de por qué deben existir or- 
denadores. El invertir un dinero en 
un ordenador no es simplemente 
para tener un juguete más. Uno or- 
denador debe ser una herramienta 
de trabajo, una herramienta de cul- 
turización, y para aprovechar unos 
recursos que están ahora a nuestro 
abasto. Estos son los recursos que 
nos proporciona la informática. El 
ordenador es aquel aparato que me 
permite trabajar con el conoci- 
miento y manipular ideas de una 
manera mucho más rápida y orga- 
nizada. Si utilizo un ordenador en 
su aspecto puramente lúdico, creo 
que estoy tirando un dinero y de- 
jando de lado las posibilidades de 
futuro y de aprovechamiento cultu- 
ral e intelectual que potencialmen- 
te tengo ante mí. Esto quiere decir 
que debe existir un sofi formativo, 
didáctico, en última instancia edu- 
cativo. 

No descarto la existencia de otro 
tipo de sofi; pero es una lástima que 
la pasión que tienen los chavales 
por los ordenadores sólo quede re- 
ducida a unas pocas instancias. 
Toda esta motivación puede permi- 
tir una ayuda en la transmisión de 
conocimientos. 


El ordenador me 
permite trabajar con el 
conocimiento y 
manipular ideas de una 
manera más rápida y 


organizada. 


—Asistimos desde hace un par 
de años a un impresionante boom de 
usuarios de micrordenadores. Un 


‘importantísimo porcentaje de és- 


tos, son niños y jóvenes en edad es- 
colar. Toda su gran afición la ca- 
nalizan en el consumo de juegos y 
su mayor interés radica en colec- 
cionarlos. 

Han proliferado clubes, revistas 
y casas dedicadas a la importación 
de estos programas fundamental- 
mente del Reino Unido. Sin em- 
bargo, este mismo fenómeno aún 
no se ha desarrollado en toda su 
extensión en las escuelas. Se han 
dado pasos importantes, eso sí. 
Congresos y jornadas sobre temas 
de educación e informática, un 
proyecto gubernamental  —el 
proyecto Аїепеа— y las escuelas 
privadas más activas ya han incor- 
porado la informática en alguna 
medida. 

Los chavales no han descubierto 
todavía que sus estudios, que en 
general suelen ser bastante tedio- 
sos y aburridos, podrían ser más 
llevaderos con el uso de la tecnolo- 
gía informática. 

—En efecto, el sofware sin 
otro elemento que el lúdico, tiene por 
intención sólo la de divertir y pasar 
el rato. La mayoría de las veces es 


una descarga nerviosa y sólo exige 
una rapidez de reacción. De la mis- 
ma manera que con otros juegos, 
llegan a aburrirse y los dejan de 
lado. Esta conducta que es habitual 
en los niños hace que también de 
jen de lado el ordenador, ya que 
sólo les servía como medio par: 
cargar sus programas de juegos 
Sólo una minoría manifiesta actitu- 
des más creativas hacia el ordena- 
dor, y comienzan a aprender len- 
guajes de programación. 

El uso de programas educativos, 
sin embargo, facilita el aprendizaje 
y la transmisión de conocimien- 
to: 


—Perdona la interrupción. De- 
cías que comienzan a aprender 
lenguajes de programación. Sabe- 
mos que por lo general el BASIC 
es el lenguaje con el que empiezan. 
Pero aquí también se les cierran 
caminos. En primer lugar, porque 
su aprendizaje no está al alcance 
de todas las edades; y en segundo 
lugar, porque lo que quieren imi- 
tar, lo que les gustaría hacer, es de- 
cir, esos juegos que tanto les apa- 
sionan por su calidad gráfica, por 
su velocidad, y en definitiva por su 
complejidad técnica, requieren 
mucha profesionalidad; amén de 
estar escritos en su mayoría en len- 
guaje máquina; y la programación 
en lenguaje máquina es aún mu- 
cho más dificil. 

Los resultados que pueden obte- 
ner son pobres respecto a sus ex- 
pectativas, y un posible motivo de 
frustraciones. 

La creación de programas que 
canalicen esta actitud creativa y 
que no les cierren puertas, podría 
ser el marco de un trabajo educa- 
cional. ¿No te parece? 

—Efectivamente. La transmisión 
de conocimientos puede hacerse 
mediante programas de enseñanza 
clásicos en los que al chico se lo 
instruye a través de lecciones. Por 
lo que el uso no tiene para él, 
mayor interés que la novedad de te- 


————————.——— 


ner esta lección en una pantalla en 
lugar de un libro o del dictado de 
un profesor. 

Hay otra manera en la que cree- 
mos más, destacando el uso inte- 
ractivo y las posibilidades de simu- 
lación. Es decir, creando una serie 
de «mundos» que el chaval puede 
controlar y dirigir, y lo que es más 
importante experimentar tanto 
como quiera. 

Esto nos obliga a elaborar y dar 

forma a todas estas ideas y concep- 
tos que queremos trasmitir y con 
las que queremos que el niño traba- 
je. 
El concepto de «mundo» está 
muy relacionado con el de mi- 
croambientes del Logo. Es decir, 
debemos disponer un conjunto de 
posibilidades que se pueden mani- 
pular libremente y que están rela- 
cionadas con el conocimiento que 
queremos transmitir. Se me ocurre 
el ejemplo de Números Locos, don- 
de los niños controlan un par de 
muñecos haciendo una carrera de 
saltos. Estos saltos responden a 
principios aritméticos. О como еп 
Teclas Divertidas, en las que el 
niño tiene que evitar que desapa- 
rezcan las figuras que van cayendo 
por la pantalla escribiendo su nom- 
bres. 

—Por lo general los chavales 
piensan que los programas educa- 
tivos son aburridos... 

—Nuestros juegos efectivamente 
son tan divertidos como cualquier 
otro con una diferencia fundamen- 
tal: los personajes o elementos con 
los que trabajan les están forman- 
do a la vez que divirtiendo. 

Podríamos preguntarnos hasta 
qué punto construir con un meca- 
no, jugar al monopoli o resolver un 
puzzle no es apasionante o diverti- 
do. 

Lo cierto es que nuestros progra- 
mas están diseñados principalmen- 
te para divertir, y fundamental- 
mente para enseñar. 

Por otra parte quienes normal- 


---- 


mente compran los juegos a los пі- 
ños son sus padres. Muchas veces 
no tienen en cuenta los beneficios 
potenciales que un ordenaodr le 
puede proporcionar a un niño. Es 
evidente que si sólo se le enseña a 
usarlo para jugar, cuando el juego 
pierde su interés, el ordenador, 
como máquina de juegos, también 
pierde interés. 

—Tenemos entendido que en 
España se están comenzando a ha- 
cer cosas en este terreno. 

—En nuestro país todavía existe 
la identificación confusa de uso 
educativo del ordenador igual a lec- 
ciones por ordenador. 

Personalmente pienso que toda- 
vía falta un conocimiento más pro- 
fundo de las posibilidades del orde- 
nador. Este es fundamentalmente 
gráficos, sonido, e interactividad. 

Si esto se tuviera en cuenta no 
encontraríamos títulos de progr- 
mas como Matemáticas 1-2, y que 
nos recuerdan a novelas de entre- 
gas por fascículos. 

En la elaboración de un progra- 


En nuestro pais todavía 
existe la identificación 
confusa de uso educativo 
del ordenador igual a 
lecciones por ordenador. 


ma educativo debe participar un 
equipo multidisciplinario de exper- 
tos que se encarguen cada uno de 
ellos del apartado en el que poseen 
experiencia. Es así como equipos 
como el de Tom Snyder Corp., 
Joyce Hackasoon As., Interactive 
Picture Systems, y otros muchos 
están trabajando y realizando los 
programas más avanzados en este 
campo. 

Estos programas son de aventu- 
ras donde el personaje descubre la 
geografía o la historia de su país, 
realiza viajes a través de la mitolo- 
gía griega, o ha de construir un 
«pin-ball» teniendo en cuenta las 
reglas de los sistemas lógicos. 

Evidentemente al niño no se le 
propone el estudio de la geografía, 
sino que se le introduce en el mun- 
do de la fantasía que responde a la 
realidad. 

Cualquiera de estos programas 
exige meses de experimentación y 
desarrollo. Siempre se intenta lle- 
gar a la versión más simple posible 
desde el punto de vista de su facili- 
dad de uso. De esta manera no es 
de extrañar encontrar programas 
que aparentemente son simples, 
pero su pontecialidad educativa es 
inmensa. Una analogía podría ser 
el uso de la arcilla, que no exige 
casi ningún conocimiento previo, 
pero con la que se pueden hacer 
hasta obras de arte. 

—Esto es fascinante. Especia- 
listas de distintas ramas como peda- 
gogos, grafistas e informáticos, tra- 
bajando para crear algo sencillo de 
usar pero potente en cuanto a sus 
resultados. Nos imaginamos que la 
valoración de este trabajo no suele 
ser muy buena. Somos muy afectos 
a dejarnos deslumbrar por aquello 
que parece complicado y difícil de 
hacer, porque difícil lo vemos en el 
resultado. Utilizar estos programas 
nos exige una cierta mentaliza- 
ción, y nos ofrece la posibilidad de 
usar el ordenador con otras pers- 
pectivas. 


--Рего actualmente, ¿qué estáis 
haciendo? 

—Nuestro proyecto inmediato, 
después de haber sacado las dos 
primeras series de títulos de Spi- 
naker y Fisher Price, es el lanza- 
miento de una nueva serie que con- 
vierte al usuario en protagonista de 
libros clásicos como la Familia Ro- 
binson, entre otros. 

A medio plazo nos proponemos 
realizar programas de simulación 
para MSDOS y por supuesto se- 
guimos trabajando en Logo por sus 
enormes posiblidades. 

—Claro que para los maestros 
y profesores que trabajan en las es- 
cuelas, el poder hacerlo con estas 
perspectivas parecería difícil. 

—Yo les recomendaría a los pro- 
fesionales de la educación que están 
interesados en el uso de ordenado- 


res en sus clases, que no se conten- 
taran con realizar los típicos pro- 
gramas de aplicaciones matemáti- 
cas o de preguntas y respuestas, y 


que se lanzaran a experimentar con 

Logo y sus enormes posibilidades 

de simulación, que van mucho más 

allá de lo más conocido que son los 
gráficos de la tortuga. 

Logo permite crear programas a 
la medida de sus necesidades para 
que luego sus alumnos experimen- 
ten con ellos. 

Nosotros trabajamos con diver- 
sos grupos de profesores y con es- 
cuelas. Resulta realmente sorpren- 
dente ver cómo al cabo de poco 
tiempo son capaces de diseñar pro- 
cedimientos de simulación que en 
cualquier otro lenguaje les exigiría 
una formación técnica mucho más 
amplia y costosa. 

—Respecto a la posibilidad de 
compartir experiencias en este te- 
rreno haría falta un marco adecua- 
do para poder aprender y utilizar 
estos resultados en la escuela. ¿No 
crees que en este sentido estamos 
todavía un poco en pañales? 

—Otro proyecto en el que esta- 
mos trabajando y que ponemos en 
marcha a partir de este mes el Cen- 
tro de Actividades-Logo y Taller 
de Informática Educativa. Estará 
abierto a profesores, profesiona- 

3 les, y a todos aquellos interesados 
en conocer a fondo las posibilida- 
des del ordenador en el medio edu- 
cativo. 

También los niños podrán traba- 
jar en estos talleres de familiariza- 
ción con la informática. 

En este centro de carácter multi- 
disciplinario se creará un entorno 
apropiado para que contemos con 
grupos de desarrollo de software 
educativo. 

--Саві sin darnos cuenta ya han 

pasado más de dos horas de charla. 
3 Nos despedimos. Nos sentimos sa- 
= tisfechos de saber que aqui en Es- 
S paña también queremos nuestros 
3 propios logros en este terreno. La 
2 ¡sala de programadores ya no tiene 

'luz. Por hoy ha terminado la acti 
vidad. Son casi las diez de la no- 
che. Afuera está lloviendo. 


- AJEDREZ 
TRIDIMENSIONAL 


OTICIAS 


Como ya anticipábamos en el 
número anterior, la feria Infor- 
mat supuso el lanzamiento de la 
versión española del QL. Pri- 
mera versión de su «nueva ge- 
neración de microordenadores 
en lengua local», como rezaba 
la publicidad. 

Esta primicia española, se 
debe según palabras de Charles 
Cotton, responsable de la políti- 
ca internacional de Sinclair, a la 
importancia del castellano en el 
contexto internacional y al lide- 
razgo de los ordenadores Sin- 
clair en España. 

En un stand llamativo cuyas 
paredes estaban formadas por la 
palabra QL, se presentaba el 
nuevo ordenador, junto con los 
discos de Quest. Pasada la sen- 
sación inicial, lo más llamativo 
resultaba ser la ausencia total de 
ordenadores Spectrum. 


El precio definitivo es de 
о? 


125.000 pesetas, incluidos los 
programas de Psion, notable- 
mente mejorados. Entre las ca- 
racteristicas principales desta- 
ca: mensaje del sistema, así 
como los avisos de error del 
operativo y de los cuatro pro- 
gramas de Psion, en castellano; 
acentuación de vocales: nuevos 
caracteres (! ó N ñ ü ç). 

Con ocasión de esta feria, pu- 
dimos comprobar las mejoras 
sustanciales llevadas a cabo en 
los nuevos programas de Psion. 
El acceso continuo a microdrive 
prácticamente se ha eliminado, 
a excepción de las opciones de 
ayuda, lográndose así una rapi- 
dez considerable. Asimismo, se 
ha reducido el tamaño de los 
programas, permitiendo mayo- 
res ficheros para el usuario. En 
este sentido, las prestaciones de 
los programas quedan de la si- 
guiente forma: 


Software 
en marcha 


Igualmente con motivo del 
Informat, Investrónica dio a 
conocer su decisión de 
apoyar fuertemente a este or- 
denador en el terreno del 
software. Los primeros pro- 
gramas que verán la luz se- 
rán el QL-MEDICINA, va- 
demécum para archivar da- 
tos sobre medicamentos: 
QL-PORTICOS, cálculo, 
armado y medición de pór- 
ticos de edificación; QL- 
NOMINAS, hasta 500 nó- 
minas parametrizables, per- 
mitiendo hasta 40 deventos y 
10 deducciones. 


En principio, cualquier mo- 
nitor puede servir para el QL. 
Sin embargo, por razones de ni- 
tidez debido a las 80 columnas, 


илиш 


Los programas de Psion son 
verdaderamente interesantes, 
pero no lo son todos. Conscien- 
tes de ello, Sinclair anuncia la 
aparición de nuevos programas 
de aplicaciones; Entrepreneur, 


QL: Entrepreneur 


Y 
=@& 


25. Тёоусз Publiatina Lid 


Project Planner y Decision Ma- 
ker. 

Entrepreneur para ayudar al 
ejecutivo en sus decisiones fi- 
nancieras y análisis de cash- 
flow; Project Planner para pla- 
nificar distintas actividades y 
resolver el problema de los 
tiempos сгіїсоѕ; y Decision Ma- 


sinclair 


QL: Project Planner 


E yA 


existen monitores «especiales» 
para este ordenador. Tal es el 
caso de este monitor de Idealo- 
gic. 

Entre las características del 
monitor color de 14 pulgadas, 
especial-QL fabricado y comer- 


Conectores laterales. De 
abajo a arriba: entrada 
sonido, video-pal, salida 
video, video pal, 
conmutador video pal 
RGB, entrada RGB y 
salida sonido. 


cializado por Idealogic, destaca 
precisamente la cualidad de re- 
sistir todo tipo de golpes. 

De dimensiones 36 x 36 x 36, 
dispone de conexiones RGB y 
Video Pal. Precio: 75.000 pese- 
tas. 


Кет para conocer qué decisión 
tomar y a qué coste. 

Estos tres programas han sido 
producidos por Triptych Pu- 
blishing Ltd., y se comercializa- 
rán en breve en el Reino Unido 
al precio de 39,95 libras (apro- 
ximadamente 8.000 pesetas) 


cada uno. 
QL: Decision Maker 


La preocupación por el desa- 
rrollo de aplicaciones comer- 
ciales, ha dejado en segundo lu- 
gar las posibilidades gráficas de 
este ordenador. Para remediar 
este problema, la casa inglesa 
Talent la lanzado el GRAP- 
HIQL. 

El programa se suministra en 
dos microdrives, aunque el se- 
gundo tan sólo incluye tres pan- 
tallas de demostración. Distri- 
buidor: Serma. 


Apostando por el QL, Ser- 
ma se convierte en la empre- 
sa pionera en material para 
este ordenador. Además del 
célebre ajedrez de Psion, 
acaba de incorporar a su са- 
tálogo de productos los pri- 
meros juegos aparecidos en 
Inglaterra para el QL, la 
mayor parte de ellos de 
aventuras: The lost kingdom 
of Zkul (aventuras: 7.500 pe- 
setas), West (aventura: 
7.500 pesetas), Graphigl (uti- 
lidad: 12.000 pesetas) y 
D-Day («war game» o juego 
de guerra: 9.000 pesetas). 


NOTICIAS | 
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Entre los cuatro pro- 
gramas incluidos con 
el QL no podía faltar 
una hoja electrónica. Y 
eso indica la creciente 
popularidad de este 
tipo de programas, a 
pesar del poco tiempo 
que han estado presen- 
tes estas aplicaciones 
en el mercado profe- 
sional. 

En 1979 dos estu- 
diantes de la Harvard 
Business School tenían 
que resolver problemas 
que incluían gran can- 
tidad de datos interre- 
lacionados a través de 
fórmulas. Se dieron 
cuenta de que cual- 
quier pequeña varia- 
ción en uno de los da- 
tos les exigía corregir 
toda la hoja en la que 
calculaban a base de 
lápiz, goma de borrar y 
calculadora. A menu- 
do, el problema incluía 
cuestiones como ¿qué 
ocurre si el tipo de in- 
terés aumenta un 2 por 
100? Eso les exigía re- 
calcular toda la hoja, 
con nuevo riesgo de 
errores. Un trabajo 
muy pesado, que deci- 
dieron aliviar con ayu- 
da de su microordena- 
dor, un Apple П. El re- 
sultado fue el famoso 


Visi Calc, del que se 
ов 


hoia electrónica 
inteligente 


vendieron 400.000 
ejemplares en tres 
años. 

Su propósito era pre- 
sentar en la pantalla 
tablas de números y 
operar con ellos cómo- 
damente, con la capa- 
cidad de тгесаісшаг 
toda la tabla de una 
manera automática 
cada vez que se modifi- 
ca una de sus entradas. 
Resultan muy útiles 
para profesionales que 
deban tomar decisio- 
nes en materia econó- 
mica condicionadas 
por gran cantidad de 
factores. Alterando 
unas pocas entradas de 
la tabla y esperando 
unos instantes, se cal- 
cula un nuevo resulta- 
do acorde con las nue- 
vas hipótesis. 


grama de ordenador se 
puede resolver me- 
diante una hoja elec- 


La evolución de es- 
tos programas, auténti- 
cos «Best Sellers» del 
software Profesional, 
les ha llevado a incor- 
porar funciones más y 
más complejas, y algu- 
nos teóricos afirman 
que cualquier proble- 
ma que se pueda resol- 
ver mediante un pro- 


Una de las aplicacio- 
nes clásicas de las ho- 
jas electrónicas de 
cálculo es la de resol- 
ver problemas de plani- 
ficación financiera. 
Para mostrar su reali- 
zación mediante ABA- 
CUS adaptamos uno de 
los ejemplos del ma- 
nual. Como allí, ante- 
cedemos cada comando 
de una referencia de co- 
lumna y fila. Esta refe- 
rencia no se debe te- 
clear; indica dónde de- 
bemos posicionar el 
cursor antes de intro- 
ducir la fórmula. En al- 
gunas fórmulas, el pro- 
grama nos pregunta en 
qué extensión de co- 


= 
«Cash Flow»: Un Ejemplo 


lumnas о filas debe ac- 
tuar el comando. En 
ese caso, indicamos en- 
tre corchetes la res- 
puesta que se debe in- 
troducir. Pasemos a 
analizar nuestra inver- 
sión. 

[C1] “CASH FLOW” 
[C2] гері (“=”, len 
(С1)) 


Estos dos comandos 
introducen el título y lo 
subrayan. Es siempre 
importante que nues- 
tras hojas tengan un tí- 
tulo que identifique su 
contenido. 


[A4] row = month 
(col) -2) (columnas В a 
N) 


trónica, aunque по 
siempre de una manera 
práctica. 

ABACUS es la apor- 
tación de Psion en este 
campo y, aunque pare- 
ce que ya no queda 
nada por inventar, sí 
incluye algunas mejo- 
ras sobre los programas 
de la generación ante- 
rior. 

Cualquier hoja elec- 
trónica divide la me- 
moria en celdas que 
componen una matriz 
rectangular, y la mane- 
ra “clásica? de referir- 
nos a una celda es por 
una o dos letras (que 
especifican la columna 
en que nos movemos) y 
un número (que indica 
a qué altura de la co- 
lumna queremos lle- 
gar). Los programas 
más complicados in- 
cluyen la posibilidad 
de darle nombre a co- 


lumnas y filas, lo que 
permite una referencia 
más fácil de memorizar 
para nuestros datos, así 
como la inserción de 
texto en algunas de las 
celdas, muy útil para 
conseguir tablas legi- 
bles. El programa de 
Psion cumple esta con- 
dición, al poderse refe- 
renciar una celda me- 
diante nombres, que 
hayan sido insertados 


en la fila y columna co- 
rrespondientes. Mas 
aún, basta con indicar- 
le al programa el co- 
mienzo del nombre, 
con las letras suficien- 
tes para identificar la 
fila o columna de ma- 
nera única. 

Cada una de las cel- 
das puede contener 
tres tipos distintos de 
datos: números, texto о 


fórmulas. En caso de 


que la celda contenga 
una fórmula, el progra- 
ma no la mostrará, 
sino que presenta en 
pantalla su resultado 
cada vez que la evalúe. 
Sin embargo, la fórmu- 
la aparece en la parte 
inferior de la pantalla, 
lo que nos permite dis- 
tinguir la celda de 
aquéllas que contienen 
números. En caso de 
que la casilla contenga 
un texto, será éste el 
que se muestre, pu- 
diendo extenderse a las 
celdas vecinas si están 
vacías. 

Otra característica 
de cualquier hoja de 
cálculo  (imprescindi- 
ble para olvidadizos) es 
la posibilidad de aña- 
dir filas o columnas en- 
tre las que ya están 
ocupadas. ABACUS lo 
permite sin más res- 
tricción que la capaci- 


[AS] row = гері (“=”, 
width ()) (A a N) 


Mediante estas dos 

líneas introducimos los 
encabezamientos соп 
los meses del año, co- 
menzando en diciem- 
bre (mes de la inver- 
ió jal) y acaban- 
do en diciembre del año 
siguiente. Si nuestro 
programa es en castela- 
no, los nombres de los 
comandos y meses se- 
rán en español, y las 
referencias a Ven.jan 
serán a Ven.ene. 


[A6] “Ventas 
[C6] 4000000 
106] row = 
„.jan*1.02 (D a N) 


ven- 


Con estas dos ins- 
trucciones introduci- 
mos una expectativa de 
ventas para nuestro 
producto de 4 millones 
de pesetas para el mes 
de enero, y un incre- 
mento previsto de un 2 
por 100 mensual a lo 
largo del año. 


[A7] “Coste de ventas 
[A7] row = ven.jan*0.5 
+750000 (С а N) 

[A8] гом = А5 (А а №) 


El coste de las ventas 
es igual a la mitad de 
las ventas más un coste 
fijo de 750000 Ptas. La 
fórmula llena automá- 
ticamente todas las ca- 
sillas del año con nues- 


tras estimaciones іпі- 
ciales. La fila A8 queda 
subrayada al hacerla 
igual a la fila 5. 


[A9] “Bruto 
[B9] row = ven - cos (С 
aN) 

Con esta fórmula es- 
timamos nuestro mar- 
gen bruto, como la dife- 
rencia entre las cifras 
de ventas y las de coste 
para cada mes. 


[А11] “Gastos 

[A12] “Salarios 

[C12] row = 700000 (С 
N 


aN) 

[A13] “publicidad 
ІСІЗІ row = 100000 (С 
а М) 

[A14] “alquiler 


[C14] row = 200000 (C 
aN 

[A15] “Electricidad 
[C15] row = 50000 (C a 


N) 

[A16] “Inv./Mant. 
[816] 2500000 

[C16] row = 90000 (C a 
N) 


[A17] гоз =а5 (А а М) 

Con estas líneas in- 
cluimos en nuestra 
hoja las previsiones de 
gastos no imputables a 
las ventas del producto. 
La inversión inicial, de 
dos millones y medio 
en` nuestra estimación 
inicial, es la única cifra 
en la columna de di- 
ciembre del año ante- 
rior, 


8 
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dad total, limitada а 
15K en la versión 1 y 
ampliada a 23K en la 
versión 2. Las 15K de 
las primeras versiones 
permiten algo más de 
mil celdas ocupadas. 
Este número es relati- 
vamente pequeño, y 
resulta uno de 105 
mayores inconvenien- 
tes del programa. Con 
la mejora en la versión 
2 se ha dado un paso 
en la dirección correc- 
ta, aunque la amplia- 
ción de memoria resul- 
tará imprescindible si 
queremos trabajar con 
grandes tablas de nú- 
meros. 

También podemos 
«abrir un hueco» en 
nuestro papel movien- 


posición. ABACUS lo 
hace, bastando pulsar 
F3 luego C (de Copy) y 
especificar el rango de 
la hoja que será afecta- 
do por la copia (p. ej. 
al:b3 o Cost.Feb:Vent- 
.Dic) y después el án- 
gulo superior izquier- 
do de la nueva locali- 
zación del bloque. 


Para borrar basta 


Las hojas electrónicas, 
auténticos Best Sellers 
del Sofiware profesional 


bout (R) y especificar 
un rango. Todas las ca- 
sillas entre las dos da- 
das perderán su conte- 
nido. Otro comando 
imprescindible es Echo 
(E), que copia el conte- 
nido de una celda so- 
bre un conjunto de ca- 
sillas. Cuando se co- 
pian fórmulas, las refe- 
rencias de casillas son 


menos que se especifi- 
que lo contrario prece- 
diendo la referencia 
con el signo del dolar 
(6). 

El comando Amend 
(A) permite editar un 
número, fórmula o tex- 
to. Es importante tener 
en cuenta que las fór- 
mulas duplicadas me- 
diante Echo o Copy 
son copias de la misma 
fórmula maestra, por 
lo que la modificación 
de una de las celdas 
cambiará la fórmula a 
lo largo de toda la hoja. 

Un punto a favor de 
ABACUS es el gran 
número de opciones de 
representación numé- 
rica de que dispone: se 
pueden representar nú- 


dad, hemos supuesto 


do su contenido a otra | usar el comando Ru- | siempre relativas, a | meros enteros, decima- 
t A B с 1 D E F Е 
1 
a Para mayor simplici- 
a December January February March April 


6iVentas 


7iCoste de Ventas 
в: 


9iBruto 

101 
1116astos 
12: salarios 
аз: Publicidad 
14: Alquiler 
15i Electricidad 
16: Inv. / Mant. 


18/Total Gastos 
191 
20'Neto 


23'Coste del dinero 


-2500000 


22:Tasa Interna de Retorno 


4000000 
2750000 


1250000 


700000 700000 
300000 200000 

200000 200000 

50000 50000 

2500000 90000 90000 


2500000 1340000 


18 Valor Actual Neto 


4080000 
2790000 


1290000 


1240000 


50900 


4161600 
28 


вос 


1330800 1572416 


700000 


200000 200000 


50000 


90000 


1040000 1040000 


290800 


3752808 


constantes los 

para todos los mi А 
Una vez construido el 
modelo, se puede va: 
riar el gasto en publici- 
dad a lo largo de los 
meses, y ver cómo se 
alteran nuestras previ- 
siones. 


[А18] “Total Gastos 


(12а16;Ва М) 
[A19] гож =а5 (А а №) 
[А20] “Neto 3 


ІВ20| Neto - Brut - 
Tot. (Ba N) 


les, exponenciales o 
con notación moneta- 
ria o porcentual, con 
cualquier caracter 
como símbolo moneta- 
rio. También se puede 
justificar texto o núme- 
ros a izquierda, dere- 
cha o centrado. Todas 
estas opciones se pue- 
den aplicar a cualquier 
rango de celdas. 

La gestión de archi- 
vos tiene los comandos 
necesarios para alma- 
cenar nuestro trabajo a 
salvo. Incluye también 
un comando para 
«Mezclar» dos tablas, 
sumando o restando de 
la hoja actual otra соп- 
tenida en microdrive. 

En cuanto a funcio- 
nes de cálculo, АВА- 
CUS incorpora todas 


las funciones matemá- 
ticas previsiblemente 
necesarias, incluyendo 
trigonométricas y ех- 
ponenciales, así como 
funciones que propor- 
cionan promedios, su- 
matorios, tasas inter- 
nas de retorno o el va- 
lor actual neto de una 
inversión, el día de la 
semana correspon- 
diente a un mes dado, 
о indexan en una tabla 
un valor para interpo- 


La opción de importación permite 


recibir datos de Easel o Archive 


lación. Incluso una 
función if, que propor- 
ciona valores depen- 
dientes de condiciones 
lógicas. 

La exportación ha- 
cia Easel, Archive o 
Quill resulta útil para 
insertar las tablas en 
documentos, tratarlas 
como registros de una 
base de datos o realizar 
representaciones gráfi- 
cas de los resultados. 
La opción de importa- 


ción permite recibir 
datos de Easel o Archi- 
ve. Así, la facilidad de 
tratamiento gráfico de 
Easel queda reforzada. 
También es útil poder 
calcular usando regis- 
tros de una base de da- 
tos. 

En resumen, ABA- 
CUS es una hoja de 
cálculo que combina 
caracteristicas muy 
avanzadas con las vir- 
tudes de los programas 
«clásicos» en este cam- 
po. Los lectores que 
conozcan уа algún 
programa de este tipo 
disfrutarán con su uso. 
Quienes nunca hayan 
usado esta herramien- 
ta, no sabrán cómo han 
podido sobrevivir tan- 
tos años sin ella. 


El total de gastos se 
construye sumando to- 
das las partidas de gas- 
tos para cada columna. 
El margen neto se ob- 
tiene como diferencia 
entre el margen bruto y 
los gastos totales. 


[A21] row = гері (“=", 
width ()) (А а М) 


Si, una vez construi- 
das las estimaciones 
mensuales de evolución 
de nuestro negocio, 
queremos extraer algu- 
na conclusión signific- 
tiva, podemos utilizar 
dos funciones definidas 
por el programa: irr 


(rango, período), que 
nos da la tasa interna 
de retorno para el nú- 
mero de filas o colum- 
nas especificadas en el 
primer parámetro, con- 
siderando el período en 
meses que las separa. 
O пру (rango, interés, 
período), que nos da el 
valor actual neto, con 
un significado similar 
en sus parámetros. 


[422] “Tasa Interna de 
Retorno 

1C22] irr (Neto, 1) (B a 
N) 


El 1 especifica que se 
trata de cifras mensua- 
les. 


[A23] “Valor Actual 
Neto 


[C23] askn (“Interés”) 
[D23] 


(1-С23/1200)*пру 
(Neto, C23, 1) (Са М) 


La casilla С23 nos 
pregunta el tipo de inte- 
rés estimado, y la casi- 
Па siguiente calcula el 
valor actual neto de la 
inversión. Esta cifra se 
debe comparar con la 
inversión inicial. Cada 
vez que se récalcule la 
hoja del programa nos 
pedirá una tasa de inte- 
rés, que usará para cal- 
cular el valor neto. 

Finalizamos mejo- 
rando el formato de 
nuestro ejemplo: 


ЕЗ Grid, Width, 15 (A 
а А) 


ЕЗ Justify, Cells, Text, 
Right, A4:N4 


ЕЗ Justify, Cells, Text, 
Right, A12:A16 


F3 Units, Cells, Inte- 
ger, A1:N23 


Si cambiamos, a me- 
dida que evoluciona 
nuestro negocio, algu- 
na de las cifras de ven- 
tas, las previsiones de 
los meses siguientes se 
construirán a partir de 
esa cifra, ya que la fór- 
mula siempre utiliza el 
mes anterior y le añade 


el 2 por 100. 
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Sorprendentemente, uno йе | 
los programas que han roto el 
monopolio de las aplicaciones 
«profesionales» para el QL es el 
Ajedrez de Psion. Un programa 
que empató con tres máquinas 
de ajedrez en el primer puesto 
del Campeonato del Mundo 
1984, celebrado en Glasgow. 

La presentación tridimensio- 
nal del tablero ya nos indica 
que el programa se sale de lo co- 
rriente. Muy estudiada, su reali- 
zación requirió la escritura pre- 
via de un programa de gráficos 
que permitiera el trabajo direc- 
to con el crdenador. Y es que, 
como dice Ann Hughes, la dise- 
ñadora gráfica del programa, 
«al principio lo hacía todo so- 
bre papel gráfico, pero la panta- 
lla tiende a aplanar los dibujos. 
Ahora que estoy acostumbrada 
hago casi todo mi trabajo direc- 
tamente en pantalla». Y lo hace 
muy bien, como prueban las fo- 
tos que acompañan este artícu- 
lo. 

Se puede elegir entre la repre- 
sentación tridimensional, con 


Ganó el QL 


Efectivamente, le pusimos a prueba jugando 
contra uno de los programas más conocidos del 
mercado: el Sargon Ш, corriendo en uno de los 
ordenadores más atractivos en cuanto a diseño, 
el Macintosh. 

Elejimos el nivel 3 en ambos programas, lo 
que supone jugar a quince segundos por movi- 
miento para ambos programas. Jugamos dos par- 
tidas. En la primera salió el QL y necesitó 64 


OL CHESS BY PSION 11 22.0. Н-не 
1 Е2-Е4 12 85-на 
4 224, 27-06 | із 2. . BB-A6 
2 о2-па 15 р4хЕ5 
2 . . + GB-F6 | 15 20.02. BAES 
5 B1-C3 14 F3xES 
5 22... 67-66 | 14 2-. o DAES 
4 61-F3 15 Al-D1 
4 . e . Fe67 | 15 E АСЕ 
5 Fi-E2 16 H4-D8 
5 2. o + + ЕВ-88 | 16 E 707557) 
6 Е1-81 17 F2-F3 
b s e 2 C7-06 | 17 Е 6558 
7 С1-Ғ4 18 A2xB3 
7 . . . кё-вз | 18 12.2. CO-E6 
8 Е2-С4 19  DB-H4 
в 22. . B7-B5 | 19 й 27-5 
9 Са-в5 20 D2-Dé 
9 412. 4 E7-ES | 20 2 BS-B4 
10 Р4-Ө5 21 С5-А4 
10 24. 2 08-7 | 21 05 В7-В5 
11 01-02 22 A4-C5 


movimientos para derrotarle. En la segunda, las 
blancas las llevaba el Macintosh, y esta vez le 
costó 94 jugadas. Reproducimos esta segunda y 
encarnizada lucha. 


Una advertencia final: recuerde que los pro- 
gramas de ajedrez tienen más moral que el Al- 
coyano y nunca dan por perdida una partida, 
aunque usted se hubiese retirado antes. 


22 ase Q FO-E8 33 ре, . А5-А4 
25 С5хЕ6 за B3xA4 

25 + EBXE6 | 34 ЕМЧ взха 
24 па-б2 35 B2-B3 

24 Bo Le га АЕБ 35 . . . А4-В5 
25 H4-F2 36 D2-D6 

25 a e ROFE 36 . . +. 68-C8 
26 F2-E3 37 D7-F5 

26 .  . . 08-H7 37 . . н7-нв 
27 H2-H3 38 F5-66 б 

27 22.-. FB8 | за . = -` саса 
28 F1-F2 39 D6-D7 

28 С E A Tia i) 39 а % ә 158-80. 
29 ESxFS 40 Di-DS 

29 2222. GARFE | 40 22222 а-а 
50 р2-р7 41 D5-D1 

30 FSA | а 9274 А 
51 Е5-А7 42 D7xD1 

31 - эз НОРО 42 . e . 08-48 
32 F2-D2 43 Ө5-Е4 

32 4. . К Н 43 . . . Яв-св 
33 А7-Е2 44 D1-D6 


sólo el tablero en pantalla, o 
bien el formato clásico, con las 
últimas jugadas hechas, el reloj 
y una serie de informaciones so- 
bre las opciones en vigor, que 
incluyen la selección entre ca- 
torce niveles. Estos se desdo- 
blan en veintiocho por la op- 
ción Easy (fácil), que no deja 
pensar al ordenador mientras 
estudiamos nuestra jugada. 
Para uso en análisis de proble- 
mas, dispone de otros ocho ni- 
veles de estudio de mate (de una 
a ocho jugadas). 

También permite la utiliza- 
ción de impresora para reflejar 
el resultado de la partida, im- 
primiendo las jugadas según se 
van produciendo o una repre- 
sentación del tablero en un mo- 
mento dado de la partida. El al- 
macenamiento de partidas en 
microdrive permite continuar 
jugadas largas o, mediante la 
opción Replay, analizar alter- 
nativas de juego en partidas ju- 
gadas anteriormente. 

Muy útil resulta también la 
posibilidad de volver atrás el 


número de jugadas deseado. 
Menos corriente es encontrar la 
opción Next-Best, que hace al 
programa volver atrás una juga- 
da y seleccionar el siguiente 
mejor movimiento. Si quere- 
mos encontrar alternativas de 
juego en momentos clave, su 
uso resultará muy cómodo, es- 
pecialmente al combinarlo con 
la opción Análisis, que enseña 
en una línea en la parte inferior 
de la pantalla ls dos o tres juga- 
das siguientes y una evaluación 
de la posición. Las opciones 
Hint (Pista) y Best (Mejor) nos 
ayudan a realizar nuestra juga- 
da y nos permiten saber qué 
está «tramando» nuestro оро- 
nente en la próxima jugada. 

El programa viene dotado de 


casi todas las opciones clásicas 


para este tipo de programas. 
Pero lo verdaderamente sor- 
prendente es la calidad de su 
Juego. Incluso al nivel 3 (el ele- 
gido por defecto), el programa 
muestra una gran solidez en las 
aperturas y un desarrollo co- 
rrecto de los finales, que es qui- 
zá la parte del juego donde más 
dejan que desear los programas 
de ajedrez por regla general. 

Psion ha prometido realizar 
una versión del mismo progra- 
ma para ordenadores mayores, 
como el Macintosh y el IBM 
PC. Este potente programa co- 
rriendo sobre un Macintosh 
(bastante más rápido que el QL) 
puede darle un susto a más de 
un aficionado de nivel alto. 

Con el Spectrum el problema 
es demostrar que sirve para algo 
mas que para jugar. Con el QL 
sin embargo sucede lo contra- 
rio, y este buen programa es 
sólo el principio. 


Distribuidor en España: Serma 
Monitor utilizado: Novex МС-1414-С1. 
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XISTIENDO tanta varie- 
dad de modelos y precios en 
el mercado, en cuanto a 
joystick se refiere, no hay 
excusa para seguir utilizan- 
do las «sufridas» teclas del Spec- 
trum. Si aún así el precio le parece 
excesivo, le proponemos hacerse 
uno «a su medida», con el que po- 
der manejar con gran comodidad y 
utilidad, sus programas favoritos, 
seleccionar un menú en un progra- 


ma de gestión de forma rápida y 
sencilla, o utilizar programas para 
dibujar gráficos en pantalla. Sólo 
tiene un inconveniente: isus di- 
mensiones son superiores a las del 
propio Spectrum! 

La palanca de mando aquí des- 
crita ha sido diseñada para estar al- 
bergada en una caja de dimensio- 
nes anchas, en la cual se han ator- 
nillado dos pequeñas planchas de 
plomo y pegado a su base dos tiras 


Figura І. Medidas de la rótula. 
Smm. 
5mm. 
ж 25mm. 


de goma para así conseguir una ad- 
herencia más que suficiente sobre 
cualquier tipo de «terreno». Asi se 
evita la molestia de tener que suje- 
tar su base con la otra mano o, 
cuando menos, se tiene la sensa- 
ción de manejar algo que se parece 
más a un accesorio útil que a un 
juguete. 

El funcionamiento de la palanca 
es muy sencillo. Consiste única- 
mente en un eje que, al bascular, 
presiona los pulsadores sobre la 
propia tapa superior de la caja, 
permitiendo la pulsación simultá- 
nea de cada interruptor y de otro 
que esté situado perpendicular- 
mente a éste, en función de la posi- 
ción de la palanca. 

El joystick consta únicamente de 
5 interruptores (pulsadores) que 
son los que corresponden a las po- 
siciones arriba, abajo, derecha, iz- 
quierda y disparo, y de una rótula 
que permite el movimiento libre 
de la palanca en todas las posicio- 
nes. 

Los materiales utilizados para la 
realización de esta palanca han 
sido: madera de contrachapado de 


- 
| 


tres milímetros, un poco de plásti- 
co rigido, tipo plexiglás, un tubo 
de aluminio, cinco pulsadores, un 
conector, el correspondiente cable 
de conexión y algún que otro ele- 
mento más, que citaremos durante 
la descripción del montaje. 


Construcción de la caja 


Para comenzar, cortaremos to- 
das las piezas de madera de contra- 
chapado que constituyen el sopor- 
te de la palanca. En total consta de 
18 piezas, incluida la base, que es 
la única pieza que se atornillará a 
todo el conjunto una vez finalizada 
la construcción. Las medidas (en 
centímetros) podremos obtenerlas 
directamente de la figura 5. Así 
pues todas las piezas van pegadas 
excepto la base, que se atornillará. 
Para ello, pegaremos unos taquitos 
de madera en el interior de las ta- 
pas laterales de la caja. Una vez 
que se hayan ensamblado todas las 


piezas, se pegará una fina placa de 
plástico, o cualquier material liso, 
sobre la parte interior de la tapa 
superior para conseguir que los 
alambres de los pulsadores desli- 
cen sin dificultad. Por último, lija- 
remos todo el conjunto para obte- 


Miontaje 
Construya su 


oystick 


ner un buen acabado. Un par de 
manos de pintura finalizarán el 
montaje de la caja. 


Construcción de la rótula 


Esta pieza es el «corazón» del 
joystick, ya que, gracias a ella, la 


palanca puede efectuar cualquier 
movimiento en cualquier direc- 
ción. Está construida con dos pla- 
cas de plexiglás de cinco milime- 
tros que han sido lijadas hasta ob- 
tener una cavidad en forma de 
franja semiesférica en cada una de 


ellas (Fig. 1). De esta forma, al 
unirse, pueden albergar una esfera 
(en nuestro caso ha sido utilizada 
una canica de plástico) que puede 
moverse o girar con toda libertad 
de movimiento según los tres ejes 
cartesianos, pero sin poderse salir 
de las dos placas que la sujetan. 


Construcción y montaje 
del eje 


Una vez finalizada la rótula y fi- 
jada ésta a la carcasa, nos guiare- 
mos de la figura 2, en la cual se 


aprecia un corte esquemático de 
todo el eje. 

En primer lugar atornillaremos 
una placa de plexiglás de tres milí- 
metros, cuyas dimensiones pueden 
extraerse de las figuras 3 y 4 en la 
base del tornillo, que servirá para 


soportar los pulsadores. Seguida- 
mente, pasaremos el tornillo con 
una tuerca atornillada, sobre el ta- 
ladro efectuado en la esfera del 
mismo diámetro que el del torni- 
llo. Fijaremos el tornillo a la esfera 
con otra tuerca y, tras poner cuatro 
o cinco arandelas, atornillaremos 
la palanca de mando, que es un 
tubo de aluminio de ocho centime- 
tros de longitud y dos centímetros 
de diámetro. A éste se la ha pegado 
una pequeña tapa circular de cual- 
quier materia para poder fijar la 
tuerca en esta última, sobre la cual 
se atornillará el eje. El tubo tendrá 
un pequeño orificio para poder 
efectuar la salida del cable que va 
conectado al pulsador de disparo. 
Este pulsador 1 irá pegado en la par- 
te superior de la palanca con cual- 


Figura 2. Montaje del eje. 
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quier tipo de resina de dos compo- 
nentes, por ejemplo. El otro extre- 
mo del cable pasará por otro pe- 
queño orificio en la tapa superior. 


Para conseguir que la palanca 
vuelva a la posición central cada 


'vez que la soltamos, se utilizarán 


cuatro muelles que irán fijados 


Figura 4. Conexión conector. 


DERECHA = MARRON 
POSITIVO = ROJO 
IZQUIERDA = GRIS 


ABAJO = VERDE 


desde cada lado de la placa, sobre 
la que se fijan los interruptores, a 
la tapa lateral de la caja enfrentada 
correspondiente (Fig. 3). 


Montaje final 

Por último, sólo nos queda sol- 
dar los interruptores a los cables 
que van al conector del joystick, 
según muestra también la figura 3. 

En nuestro prototipo se han 
atornillado en el interior dos pe- 
queñas planchas de plomo en la 
base para evitar, en lo posible, el 
deslizamiento. Esto, naturalmente, 
es optativo. 

Tal y como está conectado el 
joystick es absolutamente compa- 
tible con cualquiera de los que se 
pueden comprar en el mercado. 

Alberto Piedra 
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5/77777177771/47471741141444; 


Ғіриға 5. La 
caja consta de 
un total de 18 
piezas, 
incluida la 
base, única 
pieza que se 
atornilla a 
todo el 
conjunto, a 
diferencia de 
las demás que 
van pegadas. 
En esta figura 
se pueden ver 
las 
dimensiones 
en 
centímetros de 
las distintas 
piezas que 
componen el 
montaje. 


ДО) 


Descubrimiento 
| de un nuevo 


lenguaje: 


Y con las matrices, 
finalizamos esta serie 
sobre el PASCAL. 
Esperamos que os haya 
sido útil el 
descubrimiento de este 
ya «viejo» lenguaje. 
Ahora que 
«dominamos» este 
lenguaje, estamos 
preparados para 
comprender los 
programas escritos en 


PASCAL que 
aparecerán en próximos 
números. E а 


п las siguientes páginas que grama. Sin embargo, es posible дие valores en memoria para una mis- 
componen este artículo, va- deseemos tener una colección de ma variable. Mediante la estructu- 


mos a explicar otro tipo de ra de tablas lo podemos conseguir. 
almacenamiento de datos. Una definición formal de matriz 
Son las matrices o tablas. sería un conjunto ordenado de ele- 
Cuando manejamos variables, mentos tal que un conjunto de en- 
normalmente se nos puede presen- teros nos definen la posición de los 

tar un problema. Solamente pode- elementos dentro de la misma. 
D mos acceder a un valor de la mis- Por tanto, como vemos, tenemos 
ma durante la ejecución de un pro- la posibilidad de acceder directa- 


mente a un elemento conociendo 
la posición que éste ocupa dentro 
de nuestra tabla. Pero pasemos di- 
rectamente a las matrices en Pas- 
cal, Las tablas son llamadas 
ARRAY. y su principal caracteris- 
tica es que todos sus componentes 
han de ser del mismo tipo, al que 
llamaremos tipo base. 

En general y teóricamente po- 


dremos tener matrices de «n» di- 
mensiones. Entrando ya en la par- 
te de declaración, es necesario in- 
dicar el nombre de la tabla, los ex- 
tremos inferior y superior que nos 
indican la dimensión, y el tipo de 
los elementos que la componen. 

Asi еп general declararemos una 
tabla de la siguiente forma: 

VAR 


nombre : ARRAY [il..in,j 
OF Tipo 
Ejemplos de declaración de ta- 
blas podrían ser: 


VAR 

meses: ARRAY [1.12] OF 
CHAR; 

tabla: ARRAY [1..3, 1..3] OF 
INTEGER: 


Como ya sabemos mediante de- 
claraciones TYPE también pode- 
mos designar tablas. 

Otra forma de expresar los ejem- 
plos anteriores podría ser: 


TYPE 

Tmeses: ARRAY [1..12] OF 
CHAR; 

Ttabla: ARRAY [1..3, 1..3] 
OF INTEGER: 
VAR 

meses: Tmeses; 

tabla: Ttabla; 

Por otra parte también es posi- 
ble dar un nombre a un intervalo 
(dimensión) mediante declaracio- 
nes TYPE. 

TYPE 

dimension: 1..12 
Tmeses: ARRAY 
sion] OF CHAR; 

VAR 

meses: Tmeses; 

La figura 1 ilustra el diagrama 
sintáctico de una variable de tipo 
ARRAY, SUBINDICE y ELE- 
MENTO. 

TIPO ARRAY: 
ARRAY 


[dimen- 


A! 
TIPO SUBINDICE 
OF 


TIPO ELEMENTO 

OF 

TIPO SUBINDICE: 
TIPO ORDINAL 

TIPO ELEMENTO: 

TIPO 


Veamos ahora un ejemplo para 
el manejo simple de una tabla. Es- 
cribiremos un programa que pri- 
mero llena una tabla con una pala- 
bra, para luego escribirla al revés. 

Utilizaremos instrucciones FOR 
para llenar la tabla y escribirla 


PASCAL — 


siendo uno de ellos descendente 
(ver programa 1). 

Como vemos es un programa 
muy sencillo. Vamos a complicar- 
lo un poco, generalizándolo para 
«n» letras. Supongamos que en 
nuestro programa ese «n» es 80 
(programa 2). 

Como se puede observar, el pro- 
grama es prácticamente similar al 
anterior. Solamente utilizamos la 
variable «último» para detectar 
dentro de la tabla cuál es el último 
caracter de la línea. Para ello іпі- 
cializamos dicha variable a 81 y 
vamos decrementándola hasta en- 
contrar un caracter que sea distin- 
to de BLANCO. Una vez encon- 
trado éste, mediante el siguiente 
FOR descendente, escribimos la 
matriz invertida utilizando nues- 
tro indice. 

Hemos de insistir en que cual- 
quier tipo ordinal puede elegirse 
como tipo subíndice, ya sea char, 
boolean, integer, real, tipo enume- 
rado o tipo subrango. De esta for- 
ma las siguientes declaraciones de 
tablas serían sintácticamente со- 
rrectas: 


VAR 

palabra: ARRAY [CHAR] OF 
INTEGER; 
siglo: ARRAY [1800..1899] OF 
REAL; 


El tipo subíndice por tanto de- 
termina el número de elementos 
de la tabla, 

Vamos a ver ahora que median- 
te una instrucción podemos mani- 
pular el conjunto formado por una 
tabla. Lo podremos conseguir me- 
diante la asignación entre tablas. 
Para poder hacer una asignación 
entre dos tablas, es necesario que 
sean de características semejantes. 
Supongamos el siguiente ejemplo: 
Sean las matrices tabla 1 y tabla 2 
definidas de la siguiente forma: 


ТҮРЕ 

TIPO: ARRAY [1..12] OF 
CHAR; 
VAR 

TABLA1, TABLA2: TIPO; 


En estas dos tablas podremos 
utilizar una sentencia del tipo: 


TABLA1:=TABLA2; 
de tal forma que a cada elemento 


de la TABLA І le asignamos el ele- 
mento correspondiente de la TA- 


Р 
FIGURA 1. 
= (аявлу Е TIPO SUBINDICE 3 | 
— 
Le) mro eremenro r 
= TIPO ORDINAL = 
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MODULOS 


BLA2, quedando las dos tablas 
iguales después de la asignación. 
Hemos manipulado el corjunto de 
elementos de las tablas al mismo 
tiempo. 

Hasta ahora hemos estado utili- 
zando ARRAYS de una sola di- 
mensión, también llamados vecto- 
res. Pero también podremos defi- 
пігпоѕ ARRAYS multidimensio- 
nales, dependiendo la máxima di- 
mensión del compilador que utili- 
cemos. 

Una definición de array multidi- 
mensional será: 


VAR 
tabla: ARRAY ПЛ 
ARRAY [k..1] OF TIPO; 
La forma abreviada de expresar 
la anterior declaración sería: 


VAR 
tabla: ARRAY [i..j, К.П OF 
TIPO; 

Para comprender un poco mejor 
las matrices multidimensionales, 
vamos a realizar un sencillo pro- 
grama que sume dos tablas de 2 di- 
mensiones, guardando el resultado 
de dicha suma en otra tabla. 

Haremos la lectura, escritura y 


OF 


suma en bloques diferentes del 
programa para que se vea mejor la 
estructura. Por supuesto este pro- 
grama se podría simplificar mucho 
más (ver programa 3). 

Por último, comentar que en al- 
gunos compiladores es necesario 
inicializar las tablas a ceros o blan- 
cos dependiendo del tipo, por si al 
rellenar las matrices no completa- 
mos todos sus elementos, y los va- 
cios contengan cosas que no nos 
interesan y que ya estaban con an- 
terioridad en memoria. 


José Ramón Herreros 


PROGRAMA 1 


PROGRAM verres; 
VAR 


indice: INTEGER; 


BEGIN 
READLN; 


letras: ARRAY Г1..101 OF CHAR; 


PROGRAMA 3 


VAR 


PROGRAM SUMAR; 


FOR indice:=1 TO 10 DO 
READtletraslindicel); 
FOR indice:=10 DOWNTO 1 DO 
WRITE(letrastindicel> 
END. 


PROGRAMA 2 


ї1..МЕТ) OF CHAR; 


ultimos INTEGER: 


BEGIN 
FEADLN; 
FOR indice:=] TO NCT DO 
READ: letrast indice]? 
ultimo 
FEPEAT 
ul timai=4ltimo=1 
UNTIL letras(ultimol: BLANCO; 
FOR indi Ttimo DOMNTO 1 00 
END. 


END . (*PROGRAMA%) 


A,B, SUMA: ARRAY [1..5,1..5] OF REAL 
1,3: INTEGER; 


BEGIN (*PROGRAMA PRINCIPAL*) 
FOR 1:=1 ТО 5 DO 
BEGIN 

FOR J:=1 TO 5 DO 
BEGIN 
READ(ALI, JI); 
READ(B[1,J1) 
END 
END; 
FOR 1:-1 TO 5 DO 
BEGIN 
FOR 


J:=1 70 5 DO 

SUMALI ,JJ=ALI,J]+BCI, J] 

END; 

FOR 1:=1 TO 5 DO 

BEGIN 
FOR J:=1 TO 5 DO 

WRITEC(SUMAL 1,31) 

END 


Mapa de 
berinto 


| афелдљже 


Este programa tiene un origen 
muy peculiar: nació en un Com- 
modore en la Escuela de Ingenie- 
ros de Zaragoza. Su autor, Tomás 
Plou, abandonó sus estudios de 
Ciencias Empresariales porque 


«para trabajar hay que tener expe- 
riencia y con un título no es sufi- 
ciente». Ahora se prepara las opo- 
siciones a informática de la Seguri- 
dad Social: «Si hay que trabajar, 
mejor hacerlo en lo que a uno le 


gusta, y la informática es apasio- 
nante, sobre todo estos temas de la 
quinta generación, la inteligencia 
artificial» 

En el cursillo de BASIC de la Es- 
cuela de Ingenieros nació, como 
decíamos, este programa. Primero 
para el Commodore y posterior- 
mente trasladado al Spectrum. «El 
mayor problema fue la matriz de 


datos del laberinto. Para explorar 
la matriz tuve que crear un algorit- 
mo que se puede ver en la línea 
540. Dependiendo de la orienta- 
ción, había que acudir a las mis- 
mas subrutinas de dibujo del labe- 
rinto. Aún así no tuve memoria 
suficiente y tuve que reducir algu- 
nas sentencias.» 


Autor: Tomás Plou 16K 


30 


43 


во 


81 


82 


CLs 


31 LET M=0: 
40 PAPER 5: 
42 PRINT АТ 
5 TECLAS 5-8" 
PRINT AT 8, 


LET N=0 
BORDER ó: INK 2 
6,3; "MUEVES CON LA 


3;"0= AYUDA" 


PAUSE 200 


CLS 


DIM L(12,12) 


FOR 


1=1 TO 12 


FOR Ј=1 TO 12 


READ 
NEXT 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


тата 


DATA 


(5,2) 
3 

1 

ПОЛЕТЕ А ПЕЛА 
1,0,0,0,0,0,1,0,0,1,0, 
1,9,1,0,1,0,9,0%1,0,0; 
1>0,420;040,131,0071, 
1:0:1,0,1,0,0:0,0,1:0; 
1:0,1,0,1,0,1,1:0:0,0; 
1:0;0,0,0,0%51,0,0,1,0; 
1,120710,1,0:0,1;0;0, 
1,0;020:0,0,1%0,0:0:1; 
120:1,0,1,0,0,0,1,06,0, 
159,0:0,0,.0,1,0:00:1, 


1,1,1,1,1,1,1,1,1,1,1, 


Идома 


104 ЕТ I=INT (6XRND)+6 

105 LET J=INT (10%4RND)+2 

110 IF L(3,J)=1 THEN 60 TO 104 
120 (ЕТ S=INT (44RND)+1 

130 60 TO 156 

150 IF INKEY$="" THEN 60 TO 15 
о 

151 LET 9%=ІМКЕҮФ: IF Q$<>"5" A 
ND 0%<>"2" AND Q$<>"7" AND Q6<>" 
В" AND Q$<>"0" THEN 60 TO 150 
152 (ЕТ O=VAL ІМКЕҮ%: CLS 

154 IF 0<>5 THEN 50 TO 158 

155 (ЕТ S=S-1: IF S<1 THEN LET 
8=5+4 

156 GO TO 170 


158 IF (<>8 THEN 60 TO 164 
160 LET S=S+1:3 IF S>4 THEN LET 


162 60 TO 100%5%115 
164 IF Q=6 THEN 60 TO 105+100% 


166 IF Q=7 THEN 60 TO 110+100£ 


168 IF Q=0 THEN GO SUB 700 

170 GO TO 115%100%5 

205 IF L(I+1,3)<>1 THEN LET I= 
Ізі: GO TO 214 

207 GO SUB 650: GO TO 214 

210 IF L(I-1,3)<>1 THEN LET I= 
1-1: 60 TO 214 

212 60 SUB 650 

SUB 680 


215 FOR T=1 TO 6 

220 IF L(1-7,J)<1 THEN NEXT Т 
222 IF L(I-1,J)=2 THEN (ЕТ N=1 
225 FOR Y=0 TO T-1 

230 FOR Z=-1 TO 1 STEP 2 

255 LET A=1000+100kxY+10*(Z+1) 
240 IF L(I-Y,J+Z)=1 THEN 60 SU 
В А: GO ТО 250 

245 60 SUB A+10 

250 NEXT 2: NEXT Y 

255 60 TO 600 è 

305 IF L(1,J-1)<>1 THEN LET J= 
J-1: 60 TO 314 

307 GO SUB 650: 60 TO 314 

310 IF L(1,J+1)<>1 THEN ШЕТ *Ј= 
4%1: GO TO 314 

312 60 SUB 650 

315 FOR T=1 TO 6 

320 IF L(I,T+J)<>1 THEN NEXT Т 
323 IF L(1-1,3+1)=2 THEN LET М 
=1 

325 FOR Y=0 TO T-1 

330 FOR Z=-1 TO 1 STEP 2 

335 (ЕТ A=1000+100XY+10X(Z+1) 
340 IF L(I+Z,J+Y)>=1 THEN 60 8 
UB A: 60 TO 350 

345 GO SUB A+10 

350 NEXT Z: NEXT Y 
355 GO TO 600 

405 IF L(I-1,3)<>1 THEN LET I= 
1-1: 60 TO 414 

407 GO SUB 650: GO TO 414 

410 IF L(1+1,J)<>1 THEN LET I= 
Ізі: GO TO 414 

412 GO SUB 650 

414 GO SUB 680 

415 FOR T=1 TO 6 

420 IF L(14+7,J)<>1 THEN NEXT Т 
425 FOR Y=0 TO T-1 

430 ҒӨК Z=1 TO, -1 STEP -Z 

4335 LET А=1000+100%Ү+10% (1-2) 
440 IF L(1+Y,J+2)=1 THEN 60 SU 
В А: 60 TO 450 

445 GO SUB A+10 

450 NEXT Z: NEXT Y 

455 60 TO £00 

505 IF L(1,J+1)<>1 THEN LET J= 
J+1: GO TO 514 


507 GO SUB 650: GO TO 514 
510 IF L(I, ,J-1)<>1 THEN LET J= 
4-1: 60 TO 514 

512 GO SUB 650 

-515 FOR T=1 TO 6 

520 IF L(I,J-T)<>1 THEN NEXT Т 
525 FOR Y=0 TO T-1 

550 FOR Z=1 TO -1 STEP -2 

555 (ЕТ А-1000%100ЖҮ%10%(1-7) 
540 IF L(I+Z,J-Y)>=1 THEN GO 8 
ШЕ Az 60 TO 550 

545 60 SUB A+10 

550 NEXT 2: NEXT Y 

800 GO SUB 1600%10%Т 

610 60 TO 150 : 
650 PRINT АТ 20,9; FLASH 1; "NO 
HAY РАБО": RETURN 

480 IF L(1,J)=2 THEN 60 TO 180 
о 

890 RETURN 


700 LET D=((ABS (1-1))^2+(АВ5 ( 


J-9))^2)^.5: PRINT АТ 21,3; "DIST 
«= "¡INT (Dx10+.5)/10: RETURN ' 
1000 PLOT O, DRAW 7,7: PLOT O, 
175: DRAW 7,-2: IF Y=T-1 THEN D 
RAW 0,-166 

1001 RETURN 

1010 PLOT 0,8: DRAW 7,0: IF Y<T- 
1 THEN DRAW 0,166 

1011 FLOT 0,173: DRAW 7,0: RETUR 
N 

1020 PLOT 255,0: DRAW -7,7: PLOT 
255,175: DRAW -7,-2: IF Y=T-1 T 
НЕМ DRAW 0,-166 


1021 RETURN 


1030 PLOT 255,8: DRAW -7,0: IF Y 
<Т-1 THEN” DRAW 0,166 
1031 PLOT 255,172: DRAW -7,0: RE 


TURN 

1100 FLOT 8,8: DRAW 55,55: PLOT 
8,173: DRAW 55,-13: IF Y=T-1 THE 
М DRAW 0,-9% 


1101 IF AND S=2 THEN FLOT 2 
0,20: DRAW 0,126: DRAW 25,-4: DR 
AW 0,-76 

1102 LET M=0: RETURN 

1110 PLOT 8,8: DRAW 0,166: FLOT 


8,64: DRAW 55,0: 
DRAW 0,96 


IF Y<T-1 THEN 


1111 PLOT 8,159: DRAW 55,0: RETU 

RN 

1120 PLOT 247,8: DRAW -55,55: FL 

ОТ 247,173: DRAW -55,-12: IF Y=T 

-1 THEN DRAW 0,-96 

1121 RETURN 

1130 PLOT 247,8: DRAW 0,166: FLO 

Т 247,64: DRAW -55,0: IF Ү<Т-1 Т 

НЕМ DRAW 0,96 

1131 PLOT 247,159: DRAW -55,0: R 

ETURN 

1200 FLOT 64,64: DRAW 30,: 

Т 64,159: DRAW 30,-7: IF Y 

НЕМ DRAW 0, -58 

1201 RETURN 

1210 PLOT 64,64: DRAW 0,96: FLOT 
64,94: DRAW 20,0: IF Y<T-1 THEN 
DRAW 0,58 


1211 PLOT 64,152: RET 


[GUSANEZ 


EN EL CAJON DE LA MESA 

IF INTERFACE <> CAJON THEN 
GOTO ARMARIO 

IF INTERFACE <> ARMARIO THEN 
GOTO SECRETER 

IF INTERFACE <> SECRETER 
THEN RETURN AQuÍ, y УА 


BUSCARÉ Yo 
IF INTERFACE = SECRETER THEN | 
Lo (075 У 6010 TU SITIO 


LAS CONVERSACIONES 


Hogramas 


URN 


1220 PLOT 191,64: DRAW -20, F 
LOT 191,159: DRAW -50,-7: IF Y=T 
-1 THEN DRAW 0,-58 

1221 RETURN 

1230 FLOT 191,64: DRAW 0,96: FLO 
T 191,94: DRAW -30,0: IF Y<T-1 T 
HEN DRAW 0,58 

1231 PLOT 191,152: DRAW -30,0: R 
ETURN 

1300 PLOT 94,94: DRAW 18,18: FLO 
Т 94,152: DRAW 18,-5: IF Y=T-1 Т 
НЕМ DRAW 0,-35 

1301 RETURN 

1310 PLOT 94,94: DRAW 0,58: FLOT 


94,112: DRAW 18,0: 
М DRAW 0,35 

1311 PLOT 94,147: 
URN 

1320 PLOT 161,94: DRAW -18,18: F 
LOT 161,152: DRAW -18,-5: IF Y=T 
-і THEN DRAW 0,-35 

1321 RETURN 

1330 PLOT 161,94: DRAW 0,58: FLO 
Т 161,112: DRAW -18,0: IF Y<T-1 
THEN DRAW 0,35 
1331 PLOT 161,147: 
ETURN 

1400 PLOT 112,112: 
LOT 112,147: 


IF Ү<Т-1 THE 


DRAW 18,0: RET 


DRAW -18,0: R 


DRAW 10,10: P 
DRAW 10,-2: IF Y=T- 


1 THEN DRAW 0,-23 
B- LET у=1: RETURN 


1410 FLOT 112,112: DRAW 0,35: FL 


OT 112,122: DRAW 10,0: IF Y<T-1 
THEN DRAW 0,18 
1411 PLOT 112,144: DRAW 10,0: RE 


TURN 


1420 PLOT 143,112: DRAW -10,10: 


PLOT 143,147: DRAW -10,-2: IF Y= 
T-1 THEN DRAW 0,-23 
1421 RETURN 
O PLOT 145,112: DRAW 0,35: PL 
OT 143,122: DRAW -10,0: IF Y<T-1 
THEN DRAW 0,22 
1431 PLOT 143,144: DRAW -10,0: R 
ETURN 
1500 PLOT 122,122: DRAW 6,6: DRA 
W 0,15: DRAW —6,1: RETURN 
1510 PLOT 122,127: DRAW 6,0: FLO 
T 122,1 DRAW 6,0: FLOT 122,12 
3: DRAW 0,22: RETURN 
1520 PLOT 133,122: DRAW 6,6: DR 
AW 0,15: DRAW 6,1: RETURN 
1530 PLOT 133,127: DRAW -6,0: PL 
3, 143 PLOT 133, 
„0: PLOT 
239,0 
THEN LET №0: PLOT 
56,8: DRAW 0,152: DRAW 135,0: DR 
АШ 0,-152: PRINT AT 9,12; FLASH 
1; "SALIDA" 
1614 RETURN 
1620 FLOT 64,64: DRAW 127,0: FLO 
Т 64,159: DRAW 127,0 
1622 RETURN 
1670 PLOT 94,94: DRAW 67,0: PLOT 
94,152: DRAW 67,0 
RETURN 
PLOT 112,112: DRAW 31,0: FL 
OT 112,147: DRAW 31,0 
1643 RETURN 
1650 PLOT 122,122: DRAW 11,0: FL 
OT 122,144: DRAW 11,0 
1670 RETURN 
1800 СОЗ “1 ҒПЕ 7-5 77 7 
1810 PRINT AT 10,8; INK-I¿"YA HA 
S SALIDO": BEEP .4,7ЖІ: BEEP .2, 
3x1 


1820 NEXT 1 


- 
1830 PRINT АТ 12,10; FLASH 1; "ЕМ 1850 IF INKEY$="" THEN GO TO 18 50 
HORABUENA": FAUSE 150 1860 IF INKEYS="S" ОК INKEY$="s" 
1840 РКІМТ АТ 15,5; "DESEAS VOLVE ТНЕМ CLS : GO TO 100 
R A PROBAR?" 1870 STOF 


ІРЧІРЧ 
Discovery IM 


El sistema compacto que reúne en una sola unidad los siguientes elementos: 


“ Unidad de disco ultramoderna de 3,5” con 180 K. * Salida para monitor monocromo. 
• Interface paralelo Centronics. + Repetición del bus trasero del Spectrum. 
+ Interface de joystick tipo Kempston + Alimentación interna de todo el sistema. 


FACILMENTE AMPLIABLE A 360 Kybtes. 
PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 


e Contabilidad PNC (500 cuentas/4000 asientos) “ Facturación 

+ Tratamiento de textos + Nóminas 

е Cambio de Moneda * Base de Datos 
+= Control de stocks 


PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO| 
DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 


< 
2 


Distribuido en España por: SISTEMAS LOGICOS GIRONA, S.A. - Avda. San Narciso, 24 - 17005 GIRONA - Tel. (972) 23 71 00 


Programas 


Ediset 


En bastantes ocasiones, a la hora 
de hacer un programa, hemos teni- 
do que recurrir a crear una serie de 
caracteres, símbolos o dibujos que 
no se encontraban еп el set usual 
de nuestro ordenador. Una ñ, una 
raya diagonal, o incluso un peque- 
ño alienígena nos ha quitado algu- 
na hora de sueño en algún momen- 
to dado de nuestra carrera como 
programadores. Tras un intenso 
visionado al manual de nuestro 
Spectrum y haciendo uso de algún 
programa, hemos conseguido lo 
que buscábamos. Para muchos ya 
es una rutina el tener que diseñar 
algún caracter especial. 

Disponemos de 21 caracteres, 
llamados gráficos, libres para ha- 


cer con ellos toda clase de engen- 
dros y perversidades. Pero a veces 
este número es pequeño. Necesita- 
mos más. 

El programa que os proponemos 
a continuación podrá salvaros de 
este inconveniente en bastantes as- 
pectos y situaciones. En primer lu- 
gar vamos a analizar línea por li- 
nea la forma en que está programa- 
do para una mejor comprensión de 
lo que sucede en las entrañas del 
ordenador cuando deis al RUN 
(tecla de muchas alegrías y decep- 
ciones). 
Línea 1: 

Colores del borde, papel y tinta. 
El OVER O es para asegurarnos 
este estado en todo el programa 


menos en las líneas que nos intere- 
se meterlo. 
Línea 5: 

Tres siniestros POKES. El pri- 
mero hace que al pulsar cualquier 
tecla suene un corto pitido (varia- 
ble del sistema PIP). Los otros dos 
corresponden a la variable 
CHARS que es la que determina 
en qué dirección se empieza a leer 
el conjunto de 256 caracteres que 
componen el set del Spectrum. 
Linea 10: 

Reservamos memoria a partir de 
la dirección 64600. Esto lo hace- 
mos para que el programa en BA- 
SIC no se nos cuele en estas direc- 
ciones en caso de que sea excesiva- 
mente largo. 


TN 


1 BORDER O: 
OVER О: CLS 
5 FOKE 25209,75: 
: РОКЕ 23607,60 
10 CLEAR 64599 
12 FOR n=0 TO 50: 
+RNDX6; "EDISET Ma 


PAPER О: 


PRINT 
NEXT n: 
INT AT 17,63 Jose Carlos Tomas 
" 


INK 7: 


60 60 TO 1000 


300 REM PANTALLA 


INK 1 
PR 


MIME AZ 
15 (ЕТ di=i: LET c$=" " Ма abc 
%(8,8): LET x1=0: LET s=64600: L Т 5,05"p 
ЕТ x=0: LET y=0 Э Ат 
16 FOR т=1 ТО 8: FOR n=1 TO 8: ты E 


050 12343516. 7 89 у 
?"ЗАТ 2,03" ABCDEFGHI 
JKLMNO"¿AT 3,0;"PQRSTU 
¡RES "АТ 4,0: "#% 
зе+оһіјкі1ітпо":А 

e 


ч 
5, 
м 


FOKE 23606,0 505 CLS 2 
307 PRINT АТ 0,03" ! "jun" 
24% 5 с) ж+ у=. AT 1, 


<=> 


stuvnwx у > 


У 
"ABCDEFGH 


N O PAT 7,03"0 R 


LET a$(m,n)=STR$ 0: NEXT n: NEX ът ш" 

Tm 309 FOR п=10 TO 18: PRINT АТ п, 
17 REM COPIA ROM en RAM 64600 2%" "s NEXT п: PRINT АТ 

8,123" ": FOR m=1 TO В: FOR n=1 

20 FOR а=1 TO 767 TO 8: LET a$(m,n)=STR$ O: NEXT п 
ЗО LET 1=РЕЕК (15616+a) 1 NEXT т 
35 PRINT АТ 19,7; OVER 13 "ESPE 310, FOR n=16 TO 90 STEP В: PLOT 

RA 30 SEGUNDOS" п,51: DRAW BRIGHT 1;0,64: NEXT 
40 POKE «ға,1 n Y 
50 NEXT a 315 FOR n=31 TO 96 STEP 8: PLOT 
52 FOR п=1 TO 5: ВЕЕР .1,45: М 16,п: DRAW BRIGHT 1;64,0: NEXT 


EXT n 
55 60 SUB 300 


57 LET х2=О; LET y2=0 


n 
320 PLOT 8,23: DRAW BRIGHT 1;8 


0,0: 


DRAW . BRIGHT 1;0,80: 


DRAW 


* Ordenadores personales Hard y Soft. 
+ Cursos de Basic. 


Oficina RENOVACION EN MARCHA, S. А. 
С/ Espronceda, 34. 28003-MADRID 
Tino. (91) 441 24 78 


REMSHOP 1 
Galileo, 4. 28015 MADRID 
Tino. (91) 445 28 08 


REMSHOP 2 
С/ Dr. Castelo, 14. 28008 MADRID 
Tino. (91) 274 98 43 


REMSHOP 3 
С/ Modesto Lafuente, 33. 28003 MADRID 
Tfno. (91) 233 83 19 


REMSHOP BARCELONA 


REMSHOP LAS PALMAS 
C/ General Mas de Gamindez, 45. LAS PALMAS 
Tino. (928) 23 02 90 


ELECTRONICA 


*É¿ SANDOVAL sa 


DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL'-AlM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 

ELECTRONICA SANDOVAL, S. A. 

С/ SANDOVAL, 3, 4, 6. 28010-MADRÍD 

Teletonos: 445 75 58 - 445 76 00-445 18 70 
447 42 01 


С/ SANDOVAL, 4 
Centralita 445 18 33 (8 


6 


as) 


CURSO DE CONTABILIDAD 
PARA P y M EMPRESAS 


5: SUMAAS 
8004 Madrid 


y CAMAFEO с. 


CASSETTES 
DE CALIDAD PROBADA 
PARA ORDENADORES 


199 pias 
10 209 ріш 
15 219 

6220 229 


Libre de gastos de envio contra reembolso correos 


CAMAFEO w. Dep-03 


José Lázaro Galdiano, 1. 28036 Madrid. 


ANUNCIESE 


por 


MODULOS 


CLUB DEL JUEGO 


COMPRA — VENTA 
PROGRAMAS DE OCASION 
ZX 16-48K 


Entre otros: Space Raiders, Time Gate, Fro- 
ggi, Billar Americano, Harrier Attak, Figther 
Pilot, Tunel 3 D, Styk, Scuba Dive, Base 
Datos, Ajedrez Cirus y 600 titulos más, pide- 
nos el tuyo. 


Por sólo 900 ptas. más gastos de envio, 
puedes conseguir tu programa preferido, ga- 
rantizados y comprobados 


Pídenos gratis nuestro catálogo de pro- 
gramas. 


Rellena este cupón: 
Deseo recibir contra reembolso: 
Nombre del programa 


ME LO ENVÍAN A: 
D. 

Calle 

Población 
Teléfono (si tienes) 


ENVIAR A: CLUB DEL JUEGO 
Apartado Correos 34.155 BARCELONA 


APRENDE CODIGO MAQUINA 


- CURSO INTENSIVO EN JULIO (TODOS 
LOS NIVELES) 
- GRUPOS MUY REDUCIDOS 
Atención directa al alumno 
- OBSEQUIO DE PROGRAMA ENSAMBLADOR 
- TAMBIEN CURSO AVANZADO DE BASIC 
Para intormación y reserva de plazas 
Dirigirse a: 
.C. - Informática 
С/ Conde de Aranda, n° 6-3 dcha 
-JUNTO PUERTA ALCALA- 
Telfs: 419.8272 435.07.58 
INFORMATE DE AYUDAS Y 
SUBVENCIONES! 


MADRID 
(91) 73396 62 


BARCELONA 
(93) 3014700 


Pogramas o 


Línea 12; 

Carátula de presentación con la 
palabra EDISET con tinta aleato- 
ria (INK 1+ RND*6). 

Línea 15: 

Definimos diversas variables. 
Línea 16: 

Definimos por medio de dos bu- 
bles la matriz a$. STRS convierte 
números en cadenas por lo tanto 
todos los valores de esta matriz son 
iguales a «O». 

Línea 20 a 50: 

Copiamos el juego de caracteres 
de la ROM a las posiciones de me- 
moria de RAM 64600 en adelante. 
Leyendo con PEEK y metiéndolo 
en la RAM con POKE. La frase 
ESPERA 30 SEGUNDOS con 
OVER 1 hace que ésta parpadee de 
forma rápida sin ser un FLASH. 
Línea 52: 


Aviso de final de copia. 
Línea 53: 

Dos de los POKES siniestros 
cambian de valor. Ese nuevo valor 
resulta ser la nueva dirección don- 
de el ordenador leerá el set de ca- 
racteres. ¡Exacto! Ahora todos los 
simbolos, letras y demás serán leí- 
dos de la RAM, la cual, nosotros, 
podemos modificar a nuestro pla- 
cer. 

Línea 55: 

Saltamos a la subrutina 300. 
Linea 57: 

Definimos dos variables para el 
movimiento del cursor. 

Línea 60: 

Saltamos a la línea 1000. 
Línea 300 a 330: 

Subrutina para dibujar la panta- 
lla principal de trabajo. En princi- 
pio la línea 307 tenía unos bucles 


para «printar» en pantalla todos 
los caracteres (FOR n=32 TO 
127:PRINT CHR$ п; “”::NEXT 
n) pero haciendolo así, tal como 
está, la impresión es mucho más 
rápida. 

Línea 600 a 699: 

Estas líneas son en realidad un 
programa aparte que permite di- 
bujar en una rejilla, punto a punto, 
nuestros nuevos símbolos o modi- 
ficar los ya existentes. Posee sus 
propias subrutinas de movimiento 
de cursor totalmente independien- 
te de la parte principal del progra- 


ma. 
Línea 605: 

Pitido de aviso de entrada en 
esta opción. Cambiamos de nuevo 
los famosos POKES para imprimir 
por pantalla los valores en decimal 
de la matriz a$ con la expresión 


BRIGHT 1;-80,0: DRAW BRIGHT 130 652 
,-80 800 
525 PLOT 151,88: DRAW 24,0: DRA 954 
W 0,24: DRAW -24,0: DRAW 0,-24 810 
327 POKE 25605,0: POKE 2507,60 656 
1 FOR п=1 ТО 8: PRINT АТ пғ9,12; 20 


IF еФ-СНН% 11 THEN (GO SUB 
IF еФ-СНН% 10 THEN 60 SUB 


IF еФ-СНК% 9 THEN 650 SUB 8 


VAL ("BIN "жаФ(п,1 TO 8));" "sz 658 IF es=CHR$ В THEN GO SUB В 
NEXT n: POKE 23606,88: POKE 2360 30 

73251 665 IF e$="," THEN PLOT OVER 
330 RETURN 13y+94,x+121-(xK2)3 PRINT BRIGH 
600 REM Dibuja en rejilla Т_1; OVER 1;AT х,у; "Ш": BEEF .05 
605 BEEP .1,30: POKE 25006,0: P , 30: GO SUB 700 

ОКЕ 23607,60: FOR n=1 TO В: PRIN 670 FRINT BRIGHT 13 OVER 1;АТ 
T АТ n+9,125VAL ("BIN "+a$(n,1 Т хау) "Ш" 


0 8)): NEXT n 


610 LET x=10: (ЕТ y=2 
620 PRINT AT 20,03 “cambiar , 


675 IF es="y" 


O TO 1000 
ФУ 


ТНЕМ ШЕТ di=0: б 


680 IF e$="b" THEN LET «ісі: L 
PRINT АТ 8,12;с%: 


50 


FOKE 23607,60 
("BIN "+а%(х 
": РОКЕ 23606,88: 


ІР a$(x-9,y-1)=STR$ O THEN 
a$(x-9, y-1)=STR$ 1: 
IF a$(x-9,y-1)=STR$ 1 THEN 


RETURN 


olver:borra ET сб=" "; 
" 3 SUB 309 

621 LET мі=10: LET м2=17: LET w 685 FOKE 23606,0: 
З=9: LET w4=2 + PRINT АТ x,123VAL 
622 IF іп OR es THEN 650 TO 650 “9,1 TO 8));" 

623 POKE 23606,88: POKE 23607,2 POKE 23607,251 

51 699 60 TO £50 
625 IF di=1 THEN PRINT AT 8,12 700 

137 LET 

650 LET es=INKEYS 705 

651 PRINT BRIGHT 1; OVER 1;AT LET 


a$(x-9,y-1)=5TR$ 0: 


RETURN 


800 IF x<=w1 THEN RETURN 


хау 


¡Mb — 


¡APROVECHA AL MAXIMO TU SPECTRUM! 


Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador 


CZARANINFO) 


Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi- 
ciente de la programación BASIC. 

Incluye temas como: 

* Introducción al teclado. 

* Instrumentos útiles para la programación 

* Uso de comandos faciles. 

* Como construir un programa. 

e Técnicas de programación. 

e Aplicaciones prácticas. 


100 pags. - 750 PTAS, 


CZARANINFO) 


Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atrås la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación. 

El temario incluye: 

* Reglas y herramientas del BASIC 

* La técnica de los organigramas 

• Cómo planificar un programa. 

* El mundo de las rutinas 

* Variables y cadenas. 

e Funciones matemáticas usuales 


109 pags. - 750 PTAS 


CUPON DE PEDIDO 
Recorta este cupón debidamente cumplimentado y envielo a INFODIS, S. A. C/ BRAVO MURILLO, 377-5.* А - 28020 MADRID 


Si, envienme el(los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas. en concepto de 


gastos de embalaje y envío. 


„ 


El importe lo abonare: POR CHEQUE О CONTRAREEMBOLSO O CON TARJETA DE CREDITO (VISA 0) 


TITULO = ЭШ. = 


(AMERICAN EXPRESS 0) (INTERBANK 0) 


NOMBRE —— З 2. TRE 


CALLE —. DAR E 


CIUDAD n = кн HE = 


PROVINCIA ___ 


г 
І 
І 
І 
| мотего de mi tarjeta 
І 
І 
І 
l 
| 
І 
І 
0 


Firma 


4Г.......................................- 


"дота 


VAL (“BIN ”+а$ (n,1 TO 8)). Este 
cambio de valores de los POKES 
que observaréis a lo largo del pro- 
grama hace que se tomen los ca- 
racteres de la ROM o de la RAM 
según nos interese para tener con 
toda claridad en pantalla la infor- 
mación necesaria en caso de que 
hubiésemos cambiado o transfor- 
mado algún número o letra por 
otra cosa. 

Línea 621: 

Estas variables tienen como mi- 
sión establecer unos topes al movi- 
miento del cursor por la pantalla, 
puesto que utilizamos siempre la 
misma subrutina. En la pantalla 
principal el cursor se mueve a todo 
lo largo de la pantalla y aquí solo 
en un pequeño cuadrado. Los уа- 


lores wl w2 w3 y w4 son alterados 
para este fin. 
Línea 650 a 658: 

Movimiento del cursor. Pensado 
para hacerlo con los cursores y no 
con los números, puesto que en 
principio es más cómodo para los 
poseedores del PLUS. Al final ex- 
plicaremos los cambios que бе 
pueden hacer. 

Línea 665: 

Cuando pulsamos la coma ocu- 
rren varias cosas. Dibujamos un 
punto en la posición superior dere- 
cha de la rejilla que es una repro- 
ducción exacta de cómo quedará 
nuestro diseño. Dibujamos un cua- 
drado blanco en la rejilla o panel 
de trabajo. Saltamos a la subrutina 
700 que cambia el estado de una 


de las variables de la matriz а$. Si 
es cero la pone a uno y viceversa. 
Línea 680: 

Si pulsamos la B borramos la re- 
jilla y la matriz a$ saltando a la li- 
nea 309 que forma parte de la su- 
brutina que dibuja la pantalla 
principal. Siempre que queramos 
podemos saltar a la parte de una 
determinada subrutina que nos in- 
terese. 

Línea 685: 

Esta línea actualiza en todo mo- 
mento en valor en decimal de cada 
línea del caracter a crear. 

Línea 1001: 

Programa principal. Definimos 

nuevas variables. 
Línea 1003: 
Siempre que veamos esta expre- 


E 


805 PRINT BRIGHT 1; OVER 1;AT UB 1160: GO SUB 309: GO SUB 1200 
ЖУН: LET х=х-1: FRINT BRIGH : 60 SUB 227: GO SUB 1300: BEEF 
T i; OVER 1;AT х,у; "Ш": RETURN .5,20: GO SUB 1160: FRINT AT x2, 
810 IF x>=w2 THEN RETURN y2; OVER р 

815 PRINT BRIGHT 1; OVER 1;АТ 1007 IF e$="1" THEN LET di=1: L 
хуур" Ш": LET х=х+1: FRINT BRIGH ЕТ сФ=СНКФ wl: ВЕЕР .01,29: 60 S 
Т 1; OVER 1;AT х,у" Ш": RETURN UE 1170: GO SUB 309: 60 SUB 1200 
820 IF y>=w3 THEN RETURN : 60 SUB 527: 60 SUB 1300: ВЕЕР 
825 PRINT BRIGHT i; OVER 1;AT .5,20: GO SUB 1170: PRINT АТ x2, 
х,у" Ш": LET у=у+і: PRINT BRIGH y2; OVER 1 

T i; OVER 1;AT х,у; "Ш": RETURN 1008 IF e {" THEN RUN 

830 IF y<=w4 THEN RETURN 1009 IF e$="r" THEN GO TO 53 
835 PRINT BRIGHT 1; OVER 1;AT 1010 IF e$="p" THEN PRINT OVER 
xyi "W": LET y=y-1: 1;АТ x2,y2;" W": СО TO 2000 

T 1; OVER 1;AT x,y; 1013 IF e$=CHR$ 8 THEN GO SUB 1 


1000 REM Eleccion de caracter 


1001 FOKE 23606,0: 
і ШЕТ in=0: LET еѕ=0: 
1002 PRINT AT 15,20 


AT 16,20; "1 ESPEJO";AT 17,20;"2 
INVERTIR"; AT 18,20;"3 INVERSO";A 


T 14,20; "Run"; AT 20,0 


r:dibujar:editar:borra 
d: Graba:reponer:Salir": 


606, B8: 
1003 LET еФ-ІМКЕҮФ 


1004 IF e$="3" THEN BEEF .01,29 : 


: GO SUB 1150 


1005 PRINT OVER 1¡AT x2,y2; "W" 


1006 IF es$=" 


ЕТ c$=CHR$ мі: ВЕЕР .01,29: GO S 


FOKE 22607, 251 


075 
POKE 22607,60 1015 IF es$=CHR$ 9 THEN GO SUB 1 
LET g=1 085 
Impresora"; 020 IF e$=CHR$ 11 THEN 60 SUE 
1095 
1023 IF е$=СНКФ 10 THEN (GO SUE 
¡"pósiciona 1105 
leer:l0a 1024 IF e$="S" THEN CLS : FOKE 
FOKE 23 23606,0: POKE 25407,60: PRINT AT 
1,1;"EDISET GOTO 5% Continua 
7 RUN Empezar" 
STOF Қ 
1025 IF e$="G" THEN БО SUB 1400 
1026 IF e$="0" THEN GO SUB 1500 
" THEN LET diste L 1027 IF e$="1" THEN LET di=i: Р 
RINT AT 8,12;" ": GO SUB 309: GO 


sión (LET eS=INKEYS$) converti- 
mos la variable e$, u otra cualquie- 
ra, en la misma función que de- 
sempeña ІМКЕҮЗ: leer el teclado 
y comprobar si hay alguna tecla 
pulsada. 

Línea 1004: 


Al pulsar la tecla 3 el programa 
salta a la subrutina 1150 que es la 
encargada de invertir tinta por pa- 
pel y viceversa. 

Línea 1005: 


Esta línea, junto con la 1030, 
hace que el cursor parpadee e im- 
pide que borre la pantalla por don- 
de pasa. 

Linea 1006: 


Al pulsar el 2 el programa salta a 
una serie de subrutinas y tenemos 


como resultado el caracter elegido 
pero boca abajo. 
Línea 1007: 

Al pulsar el 1 tenemos la imagen 
espejo del caracter elegido. 
Línea 1008: 

Pulsamos la R mayúscula y ha- 
cemos un RUN lo cual empeza- 
mos de nuevo borrando todo lo 
que hay en la RAM. Sólo perma- 
necen inalterables los UGD. 

Línea 1009: 

Al pulsar Іа «г» minúscula salta- 
mos a la línea 53, dibujando de 
nuevo la pantalla principal y de- 
volviendo el cursor a la parte supe- 
rior izquierda. La utilidad de esta 
instrucción, aparentemente inútil, 
está pensada para el caso siguiente: 
Imaginemos que editamos en el lu- 


SUB 1200: 60 SUB 327: 


5: LET c$= 


НКФ wi 
b" THEN 


: GO TO 100 
РКІМТ OVER 1;AT 
1031 LET w=INT 
wi=w+Z2 


‹(х1+у2 


BEEF .1,4 


РКІМТ AT в, 
ШЕТ c$=" "; 60 


THEN GO SUB 1200 


1032 IF g=1 THEN PRINT BRIGHT 


1¡AT 9,20;CHR$ wi 


1033 IF e$="d" THEN GO TO 600 


1034 IF g=0 THEN 


РКІМТ BRIGHT 


1; INVERSE 1;АТ 9,203CHR$ wi 


1055 IF х2<=5 THEN LET хі 
х2>5 THEN LET 


e$="i" THEN LET di= 


xi 


RINT АТ 8,12;" ": GO SUB 309: 60 


SUB 1200: GO SUB 527: LET c$=CH 
R$ wi: РОКЕ 23606,0: POKE 23607, 
іЗ3:2%4%245%2::- elig A: 
ERA БЕРІШ ЕЗІ 
Е8ЕРЕРЕРІЗІ САҢ Езісіс Eso ao 

E 

8 Баш. 

ыо? 


VENDO la илл compra de 


A dor Sales 
ES 
LON 


Compro impresora de 80 columnas 
conectable al Spectrum. Además, estoy 
interesado en formar un club de usun- 
rios del Spectrur 

чйрнн 


C! Rio Ebro, п. 
Ebro (Burgos). 


VENDO ZX MICRO- 


TUCHO Y UN MA- 
Мол. TODO COM- 


ITURRIAGA. 
VAS DE JESI 
HARO (LA RIOJA). 


El Spectrum se me quedó 
pequeño. El Olivetti M-20 
también, Vendo este último a 
buen precio y con abundante 
software. Llamar al teléfono 
239 4776 de Madri 

tir de las 22 h. 


A LOS SPECTRO- 
MANOS DE ESPA- 
ÑA, DE LOS COLE- 
GAS DE URUGUAY. 
DONDE NO SE 
CONSIGUE NADA 


GRAMAS QUE YA 
NO МЕСЕЅІТЕМ 
(RECORTES, 1M- 


ХАВЕО 1295 ÀP, 902 
MONTEVIDEO - 
URUGUAY. 


CAMBIAMOS programas 
y libro «THE COMPLET 
SPECTRUM ROM DISAS- 
SEMBLY» de lan Logan por 
otros programas o libros. In- 
teresados escribir o llamar a: 
JORDI SERRA LOPEZ. Pa- 
seo del Triunfo, 30, 6.” 2%, 
08005 BARCELONA. 


OO Bene a 


Hoqramos 


gar destinado al SPACE un dibujo 
cualquiera. Cuando salgamos de la 
pantalla principal y entremos en 
ella otra vez observaremos que to- 
dos los espacios son rellenados con 
nuestro dibujo, lo cual produce un 
molesto visionado de la pantalla. 
Si lo hemos hecho «aposta», nos 
tendremos que aguantar con las 
consecuencias pero si ha sido un 
error podemos editar un «vacio» 
de nuevo y apretando la «г» todo 
volverá a la normalidad. Haced el 
experimento. 


Linea 1010: 

Pulsamos la «P» y saltamos a un 
subprograma cuya única misión es 
la de poder editar en pantalla los 
resultados finales dibujando en 
ella a nuestro antojo y por medio 
de un cursor todo lo que hubiése- 
mos creado. 

Linea 1024: 

Pulsamos la «s» mayúscula y sa- 
limos del programa. 
Línea 1025: 

Pulsando la «g» mayúscula pa- 
samos a la subrutina de grabación. 


Línea 1026: 

Pulsando la «o» mayúscula pa- 
samos a la subrutina de carga de 
un set almacenado con anteriori- 
dad en cinta. 

Línea 1027: 

Pulsando la «l» pasamos a la re- 
jilla el caracter elegido con el cur- 
sor. Este caracter podrá ser modifi- 
cado y editado de nuevo en la mis- 
та и otra posición. 

Línea 1028: 

Pulsando la «b» borramos la re- 

jilla. 


анааан + ы == =ч e a] 


60: GO SUB 1600: FOKE 23606,88: МТ PAPER 2; OVER 1; BRIGHT 1;АТ 

РОКЕ 23607,251 16,203" ": RETURN 

1070 60 TO 1003 1172 IF es=1 THEN LET еѕ=0: PRI 

1075 IF у2<=0 THEN RETURN NT OVER 1;АТ 16,203" А 

1080 РКІМТ АТ х2,у2; OVER 1; "Ш RETURN 

LET y 2-2: PRINT OVER 1;AT x 1200 REM Dibuja carac en reja 

2, y2; "Ш": RETURN 1205 LET al=10: LET bi=2 

1085 IF y2 О THEN RETURN 1208 IF in=0 THEN FOR m=103 TO 

1086 IF y2 AND x2=7 THEN RET 95 STEP -1: LET bi=2 

URN 1210 IF in=1 THEN FOR m=96 TO 1 

1090 PRINT АТ x2,y2; OVER 1;" W: 05: LET bi=2 

LET y 2+2: PRINT OVER 1;AT x 1213 IF es=1 THEN FOR п=167 TO 

2,y23"W": RETURN 1598 ӨТЕР 1 

1095 IF x2<=0 THEN RETURN 1214 IF es=0 THEN FOR n=160 TO 

1100 РКІМТ АТ x2,y2; OVER 1; "Ш 168 

ШЕТ: 2-1: PRINT OVER 1¿AT x 1219 IF РОІМТ (n,m)=1 THEN FRIN 
RETURN T BRIGHT 1; OVER 1;AT а1‚Ь1;"Ш' 

THEN RETURN : LET a$(al-9,b1-1)=STRS$ 1 

1106 IF x AND y2>=9 THEN RE 1220 LET bi=b1+1 

TURN 1250 NEXT n: LET а1=а1+1: NEXT m 

1110 PRINT АТ х2,у2; OVER 1; "Ш": : RETURN 

LET ж 2+1: PRINT OVER 1;AT x 1300 REM EDITAR 


RETURN 


2,y2; 


1315 FOR n=1 TO 8: 


КЕТ b$=a$(n, 1 


1150 IF g=0 THEN LET д=1: PRINT )+аф (п, 2) +аФ (п, 5) +ғаф (п, 4)+a$(n,5 
OVER 1;АТ 18,203" " К) +аф(п, 6) +аФ(п, 7) +аФ(п, В) 

ETURN 1317 IF м1<144 THEN POKE s+(wk8 

1152 IF g=1 THEN LET g=0: FRINT J+n—1,VAL ("BIN "+b$): NEXT п 
FAPER 2; OVER 1; BRIGHT 1;AT 1 1319 IF w1>=144 THEN POKE USR " 

B,203" ": RETURN а"+ (06-112) Ж8)+п-1, АЫ ("BIN "+b 

1180 IF in=0 ТНЕМ LET іп-і: PRI $): NEXT п 

МТ 'FAFER 2; OVER 13 BRIGHT 1;AT РКІМТ АТ x2,y2¡CHR$ мі 
17,20:" ": RETURN ВЕЕР .1,35: RETURN 

1162 IF in=1 THEN (ЕТ іп=0: FRI КЕМ grabar en casette 

МТ OVER 1;АТ 17,20;" z POKE 23606,0: FOKE 25607,40 

: RETURN 1410 CLS : PRINT AT H 

1170 IF es=0 THEN LET es=1: PRI АТ 5,103"1 БЕТ" {АТ 7,10;"2 UGD 


SUSCRIBASE 
POR TELEFONO 


x más fácil, 

ж más cómodo, 

ж más rápido 
Telf. (91) 7337969 

7 días por semana, 24 horas a su servicio 


suscrasass a Todospectrum 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 

con esta funda, y beneficiese 

de un 30% de descuento 

sobre su precio normal. 


ж № ағы 
99099 569 а" 
RSS 


D 


"ТАТ 9,10; Ambos" 

1412 INPUT "Nombre fichero:"3c$: 
IF c$="" OR LEN c$>10 THEN 60 

TO 1412 

1414 РЕ1МТ : FRINT TAB 5; "Pulsa 

una opcion": PRINT : PRINT "Fara 
utilizar el nuevo set en tuprog 

rama incluye estos E PR 
INT "POKE 23606,88 FOKE 07, 

251"°°%: PRINT ty CLEAR 64599 en 


opciones 1 y 2" 

1415 LET es=INKEYS 

1417 IF еф="1" THEN CLS : FRINT 
"Opcion 1 6ЕТ"”?; PRINT "Direc 

cion de memoria 64500"** "Lomgitu 

d 768": SAVE c$CODE s,768: GO SU 


В 1450: 60 TO 55 
1419 IF e$="2" THEN CLS : PRINT 
"Opcion 2 UDG""*: PRINT i 


cion de memoria USR "аты> 
gitud 168": SAVE c$CODE USR 
168: 60 SUB 1450: GO TO 53 
1420 IF e$="3" THEN CLS =: 
"Opcion 3 SET y UDG"*”: 


FRINT 
PRINT 
"Direccion de memoria 64500"**"L 


ongitud 956": 
GO SUE 1450: 
1430 


SAVE c$CODE s, 936: 
60 TO 55 

GO TO 1415 

PRINT АТ Я, от"... * 
O; "Quieres verificar? 


1450 CLS : 
36%; АТ 21, 
(6/м)" 

1452 IF ІМКЕҮФ="=" 
RINT 


THEN CLS : P 

INK 2; PAPER 7ҘАТ 11,03"G0 

aso de error o BREAK": 

CODE : CLS : PRINT AT 

verificado": BEEF .1,4 

О: PAUSE 100: RETURN 

IF ІМКЕҮФ="п" THEN RETURN 

60 TO 1452 

КЕМ Cargar set de cinta 

РОКЕ 22606,0: FOKE 23607, 
1513 CLS : PRINT АТ 3,103 "LOAD 

АТ 5,10;"1 SET"¿AT 7,10,"2 UGD 
"¡AT 9,103"3 Ambos" 

1514 INPUT "Nombre fichero:"¿c$: 
РКІМТ АТ 21,0; "Рц1ѕа una opcion 
" 

1515 (ЕТ еФ-ІМКЕҮ% 

1520 IF e$="1" THEN LOAD c$CODE 
: 60 TO 53 
1525 IF es="2" 


THEN LOAD c$CODE 


USR "a": GO TO 55 
1530 IF e$="3" THEN LOAD c$CODE 
: 60 TO 53 


1535 60 TO 1515 

1600 IF w1>=144 THEN ІРКІМТ 
VERSE 1:СНЕФ (w1-79)3 
" n CHR$ мір" "3 


IN 
INVERSE О; 


1605 IF wi<144 THEN LFRINT CHRE 
“1;" "33 POKE 25606,88: 2: 
607,251: ІРБІМТ CHR$ w1;" "¡2 FO 


КЕ 23608,0: POKE 23607,60 
1610 FOR n=1 TO 8: LPRINT VAL (" 


BIN "+a$(n,1 ТО 8));",";: NEXT n 

1 LPRINT 77: RETURN 

2000 BRIGHT 1: PAFER 6: BORDER 7 
< 0: CLS : LET di E CEF gr 
ЕТ x=10: LET y=2: LET wi=0 

LET w2=18: LET q 1: LET wé= 


ча 


17, "12345 

б "BODEFGHIJ 
:"STUVWXYZIÑĖ^_ 
"defghi jklmnopgrst 


n 
N "+a$(n, 
INT °°: RETURN 


n=1T0 S:LPRINT VAL ("BI 
170 899", "¡+ NEXT n:LPR 


BRIGHT 1: PAPER 6: 
CLS : LET а 
LET y 
2-18: LET w3=11: 


EORDER 7 
LET gr= 


2001 FOKE 06 
2002 PRINT AT 19,2 
20,07 "SFACE borrar 
raficosDELETE volver 
oho E 25 
2004 FRINT INK 
ai E, OR C 
2005 FRINT INK 
6789: 
KLMNOF'QR 33 "STUVWXYZ i Äi" 
#abc";AT 8, 13; "defghi ¡klmnopgrst 
"¡AT 10, EPIT yz“ R} ABCDE"; A 


POKE 22607,60 
¿"AT Copy"; AT 
ENTER g 
EDIT m 


43AT O, 
о" 
4AT 2 


13 


Línea 1029: Línea 1031: 

Pulsando la «e» pasamos lo que 
hay en la rejilla a la posición del соп 
у la posición de 


cursor. 


FOKE 22206,88: РОК 


607,2 


BRIGHT 1;АТ 1 
афи" 0%+,-.,/0" 
BRIGHT 1;АТ 
PTBA"; AT 5,13; 
АТ 7,13; "STU 
VWXYZi ме Жавс"ҙАТ 9,13; "defghij 
КітпорағвЕ"” АТ 11 uvwxyz "RIN 
ВЕСОЕ":АТ 13,13 "FGHI AR LAO 
әкетті 


2009 РОКЕ 21606,88: FOKE 22007,2 
51: PRINT OVER 1; BRIGHT 1587 x 
syi "W" 

2010 LET еФ-ІМКЕҮФ 

2011 IF еФ-"АТ " THEN СОРУ : GO 
TO 2010 

2013 IF e$=CHR$ В THEN GO SUE 8 

30: 60 TO 2010 

2015 IF es=CHR$ 9 THEN GO SUB 8 
20: 60 TO 2010 

2020 IF e$=CHR$ 11 THEN GO SUB 

800: 60 TO 2010 

2023 IF e$=CHR$ 10 THEN GO SUE 

810: 60 TO 2010 

2025 IF es=CHR$ 13 THEN БЕЕР .0 


5,30: РКІМТ АТ 20,24; OVER 
DUO: AT х,у; BRIGHT 1; 
SUB 2200: ВЕЕР .1,35: 60 TO 201 
о 

2027 IF 


50 


(e$>CHR$ 117 OR es<CHR$ 
7 THEN GO TO 2010 
THEN FRINT BRIG 
HT 1; INVERSE 1;АТ x,y} CHR$ VAL 
"(CODE e$)+gr" 


2035 IF e$=CHR$ 12 THEN PAPER O 
2 INK 7: BRIGHT 0: BORDER О: CLS 
: 60 TO 53 


2040 IF es=CHR$ 
VER 1;АТ 21,24; 
120: 60 SUE 


7 THEN FRINT O 
Шынын”: EEEF 


.1 
› 


2100 60 TO 2010 
2200 IF gr=0 THEN LET gr=47: PR 
INT АТ 20,03" “¿AT 
21,03" 


Se definen unas variables rela- 
cionadas con la posición del cursor 


donde deberá ser almacenada 
Línea 1033: 
Pulsando la «d» saltamos a la 


memoria RAM - subrutina de dibujar en rejilla. 


“: RETURN 
2210 IF gr=47 THEN LET gr=0: PO 
КЕ 23606,0: FOKE 25807,60: PRINT 


АТ 20,0% "ЗРАСЕ Бағғағ"ҙАТ 21,05 
"DELETE volver EDIT modo E" 
: FOKE 23606,88: РОКЕ 23607,251: 
RETURN 

2300 FRINT BRIGHT 1;AT х,у;" 
2310 PRINT AT 20,03" 


320 LET es=INKEYS 

21 IF еФ-СНК% 8 THEN GO SUB В 

50 TO 2: 
IF е%-СНК% 


2322 9 THEN 60 SUB 8 
20: 60 TO 2320 
e$=CHR$ 11 THEN GO SUB 


20 


e$=CHR$ 10 THEN БО SUB 
2325 IF THEN РКІМТ ІМУЕ 
RSE 1; BRIGHT 1;АТ х,у" і" 
2326 IF e$="u" THEN FRINT ІМУЕ 
RSE 1; BRIGHT 1;AT х,у "4" 
2327 IF еф="а" THEN FRINT INVE 
RSE 1; BRIGHT 1:АТ x,y¿""" 
2328 IF e$="s" THEN FRINT INVE 
RSE 1; BRIGHT 1;АТ x,yp"R" 
2329 IF e$="d" THEN FRINT INVE 
RSE 1; BRIGHT 1;AT х,у; "а" 
2330 IF e$="4" THEN PRINT INVE 
RSE 1; BRIGHT 1;АТ x,yp"o" 
2331 IF es$="g" THEN FRINT INVE 
RSE 1; BRIGHT 1;АТ х,у; "3" 
2332 IF еф="р" THEN FRINT INVE 
RSE 1; BRIGHT 1;АТ х,у" 
2335 IF es$=CHR$ 7 THEN PRINT АТ 


24; OVER 1; " MIRNA": ЕЕЕР.1 
35: POKE FOKE 25607,60 
3 FRINT AT 20 SFACE borrar 
ENTER graficos": POKE 23606,8 
FOKE 23607,251: RETURN 

7 IF e$=CHR$ 12 THEN RETURN 


8 


60 TO 2320 
9999 SAVE "ediset" LINE 1: VERIF 
ү" 


Línea 1045: 

Pulsando la «i» podemos pasar a 
impresora los valores en decimal 
del caracter elegido con el cursor. 
Línea 1075a 1110; 

Subrutinas de movimiento del 
cursor de la pantalla principal. 
Linea 1150 y 1152: 

Subrutina de inversión de papel 
por tinta y viceversa. 

Línea 1160 y 1162: 

Subrutina para invertir el carac- 
ter. 

Línea 1170 y 1172: 

Subrutina para crear una ima- 
gen espejo del caracter elegido. 
Línea 1200 a 1250: 

Dibuja en la rejilla el caracter 
elegido escogiendo unos bucles u 
otros dependiendo de ciertas varia- 
bles elegidas de antemano en las 
subrutinas 1160 y 1170. 

Línea 1300 a 1325 

Edita el caracter que hay en reji- 
lla llevándolo a la posición del 
cursor. 

Línea 1400 а 1457; 

Subrutina de grabación 
Línea 1500 а 1535: 

Subrutina de carga del cassette a 
ordenador de cualquier set alma- 
cenado en cinta con anterioridad. 
Línea 2000 a 2340: 

Subrutina que permite un visio- 
nado en conjunto de todos los ca- 
racteres pudiéndolos posicionar 
juntos o por separado dentro de 
unos márgenes. 

Línea 9990: 

Graba y verifica el propio pro- 
grama. 

Hasta aqui la explicación un 
poco exhaustiva del programa. 
Pero antes de pasar a explicar 
cómo utilizarlos hay algunas cosas 
que se deben explicar. 

El programa está pensado para 
el PLUS en cuanto a manejo del 
teclado. Si tenéis el normal cam- 
biad todos los IF eS=CHR$ 11 a 8 
por IF e$="(letra que queráis)” te- 
niendo en cuenta que el CHRS 11 
equivale al cursor arriba, el 10 
abajo, el 9 derecha y el 8 izquierda. 
También podéis cambiar еп la lí- 
nea 665 IF e$=",” por otra letra. 


El programa permite crear los 


21 gráficos definibles por el usua- 
rio (UDG) y además cambiar, mo- 
dificar y alterar todo el ser de ca- 
racteres, grabarlo en cinta para 
una utilización posterior y sacar 
por impresora algunos datos útiles. 

Para entenderlo mejor lo ideal 
será teclear el programa, grabarlo 
en cinta, verificarlo y hacer algu- 
nas pruebas. 

Una vez hecho esto le damos al 
RUN y si todo es correcto aparece- 
rá la carátula y tendremos que es- 
perar aproximadamente 30 segun- 
dos. Al cabo de este tiempo, se di- 
bujará la pantalla principal y ya 
podemos empezar a trabajar. 

Para empezar podemos crear la 
letra «ñ». Llevamos el cursor hasta 
la «n» y pulsamos la «l» de leer. El 
menú, como podréis observar, se 
encuentra en la parte inferior de la 
pantalla. En la rejilla se dibujará, 
en grande, la letra «n». Ahora pul- 
sar la «d» y un cursor parpadeante 
aparecerá dentro de la rejilla desa- 
pareciendo al mismo tiempo el 
otro cursor y cambiando el menú 
en la linea inferior. Tenéis unos 
números a la derecha de la rejilla 
que son el valor en decimal de 
cada fila del caracter elegido y ade- 
más una «n» encima de éstos. Lle- 
var en cursor hacia la derecha 2 es- 
pacios y pulsar la coma. Sonará un 
BEEP Y el número de la derecha 
habrá cambiado a 32. Correr otro 
espacio y pulsar de nuevo la coma. 
El número cambia a 48 y con otro 
espacio más será de 56. Si obser- 
váis encima de esta columna de 
números lo que antes era una «n» 
se ha convertido en «ñ». Pulsar la 
«v» para volver al menú principal. 
Desaparecerá el cursor de la rejilla 
y aparecerá donde lo dejamos an- 
teriormente. Ahora podemos des- 
plazar este cursor donde nos inte- 
rese colocar la «ñ». Por ejemplo, а 
la «N» que hay dos filas más abajo. 
Las dos últimas filas de letras 
mayúsculas corresponden a los 
UDG. Ahora pulsamos la «e». El 
cursor deja de parpadear por un 
momento y ya está, Tenemos una 
flamante «ñ» еп el UDG«N». 


José C. Tomás 


SUSCRIPCIONES: 

Rogamos dirijan toda la 
correspondencia relacionada con 
Suscripciones a: 
TODOSPECTRUM. 


(Para todos los pagos reseñar 

solamente TODOSPECTRUM) 
la compra de ejemplares 

atrasados dirijanse a la propia 

editorial 

TODOSPECTRUM 

С/ Bravo Murillo, 377-5.>A. 

Tel. 733 74 13- 28020 MADRID. 


SHA SP-800 
El fruto de la Investigación 


La nueva impresora de SEIKOSHA SP-800, con un ordenador personal puede 
cribir 96 combinaciones de letra diferentes, desde 96 caracteres por segundo 
Ф con muy alta calidad de letra, además es gráf en alta densidad. 
Su precio es de 69.900 R con introductor automático ho, a hoja. 
Соп un pequeño ordenador personal, un procesador de textos puede costar 
alrededor de cien mil pesetas. 
Infórmese y comprenderá por qué las máquinas de escribir tienen demasiados aflos. 
Nuestra calidad es "SEIKO"; ESTOS вон NUESTROS MODELOS 
nuestros precios, únicos 
Si desea más información, 
consulte con nuestro distribuidor 
más cercano, llame o escriba a: Econontca 
DIRECCION COMERCIAL: STANDARD, 


v. Blasco Ibañez, 114 PERFECCION 
av. 8 Ibañez, іі PERFECT 


DE OFICINA 
NAS RAPIDA 


Tel (96) 272 вө өз 
Telex 62220 
DIRECCION COMERCIAL EN CATALURA 


C/muntane conexión tipo 


Stro tipo de conexión, sufren un ligero 


SEIKOSHA SP--800 


Y la Garantía Investrónica. Exijala al comprarlo ya que 
le protege de cualquier anomalía o reparación. 


Invi el futu Prèmi 


Quien bien acaba el curso, bien empi 


SPECTRUM. EL ORDENADOR CLASICO. 


Tomis Bretón 


